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MICRO-80 is an international magazine devoted entirely to the Tandy TRS-80 microcomputer and the 
Dick Smith System 80/Video Genie. It is available at the following prices (all prices shown in 
Aus.$ except for U.K. prices which are in pounds Sterling). 


12 months subscription 

Aus. 

$24.00 
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$36.00 (Airmail) 


Hong Kong 

$46.00 (Airmail) 
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£16.00 

Single Copy 
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N.Z. 
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Hong Kong 
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£41.00 (Airmai1) 


Special bulk purchase rates are also available to computer shops etc. Please use the form in this 
issue to order your copy or subscription. 

The purpose of MICRO-80 is to publish software and other information to help you get the most from 
your TRS-80, System 80 or Video Genie and their peripherals. MICRO-80 is in no way connected with 
either the Tandy or Dick Smith organisations. 

** WE WILL PAY YOU TO PUBLISH YOUR PROGRAMS ** 

Most of the information we publish is provided by our readers, to whom we pay royalties. An 
application form containing full details of how you can use your TRS-80 or System 80 to earn some 
extra income is included in every issue. 

** CONTENT ** 

Each month we publish at least one applications program in Level I BASIC, one in Level II BASIC and 
one in DISK BASIC (or disk compatible Level II). We also publish Utility programs in Level II 
BASIC and Machine Language. At least every second issue has an article on hardware modifications 
or a constructional article for a useful peripheral. In addition, we run articles on programming 
techniques both in Assembly Language and BASIC and we print letters to the Editor and new product 
reviews. 

** COPYRIGHT ** 

All the material published in this magazine is under copyright. That means that you must not copy 
it, except for your own use. This applies to photocopying the magazine itself or making copies of 
programs on tape or disk. 

** LIABILITY ** 

The programs and other articles in MICRO-80 are published in good faith and we do our utmost to 
ensure that they function as described. However, no liability caa be accepted for the failure of 
any program or other article to function satisfactorily or for any consequential damages arising 
from their use for any purpose whatsoever. 
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I *** SPECIAL offer TO NEWR^^ 

*** SOFTWARE LIBRARY, VALUED AT OVER $100 - FREE !!!*** | 

MICRO—80 has developed a new Library of Software consisting of 7 programs and a comprehensive user manual. The 
Software Library, on cassette, will be sent FREE to every new subscriber and to every subscriber who renews his sub¬ 
scription for another 12 months. Disk subscribers will receive their Software Library on a diskette. The new Software 
Library contains the following Level II/Disk Programs. All programs will also operate on the Model III. 


Level I in Level II 

Convert your Level II TRS—80 or System 80 to operate as a 
Level I machine. Opens a whole new library of software for your 
use. 

Copier 

Copies Level II System tapes, irrespective of where they load in 
memory. Copes with multiple ORG programs. 

Z80 MOM 

A low memory, machine language monitor which enables you to 
insert OP codes, edit memory, punch system tapes etc.. 

Cube 

An ingenious representation of the popular Rubicks cube game 
for Disk users. 


Poker 

Play poker against your computer, complete with realistic graphics. 


Improved Household Accounts 

Version 3.0 of this useful program. One or two bugs removed 
and easier data entry. This program is powerful enough to be 
used by a small business. 


80 Composer 

A music generating program which enables you to play music via 
your cassette cord and to save the music data to tape. This is an 
improved version of the program published in Issue 17 of Micro— 
80. 
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***** EDITORIAL ***** 

Despite the promises, very few of the new colour computers have actually been seen in the shops 
yet. Commodore with its VIC-20 and Tandy with the TRS-80 Colour Computer, are both resigned 
to missing the Christmas rush but it does seem that these computers will actually be available 
in February, 1982. 

So, with Tandy at long last about to have a colour computer, what of the Dick Smith organisation? 
Whilst there have been rumours of colour add-ons for the System 80/Video Genie, there have been 
no suggestions that the manufacturers of the Video Genie actually have a colour computer on 
the way. So, Dick Smith has solved his problem himself and will shortly be competing with Tandy 
in offering colour computers. How has he done it? DICK SMITH ELECTRONICS WILL SHORTLY BE SELLING 
THE VIC-20 BY COMMODORE. It will be a fascinating battle to see which computer gains the most 
customers. The VIC-20 in its most basic form wins over the TRS-80 Colour on price - $399 versus 
$599, but before a judgement can be made, it is necessary to compare the prices for equipment 
of similar performance (both systems have a wide range of add-ons and expansion units). That 
we will do for you in the next few issues. Next month we will have a detailed review of the 
TRS-80 Colour Computer, based on hands-on experience of a reader who imported his own several 
months ago, and our own impressions of an expanded BASIC machine loaned to us by Tandy. We 
will follow that in a later issue with a comparative review of the VIC-20. We will also look 
at one of the newest offerings, the Hitachi Peach. There are exciting times ahead for those 

contemplating the purchase/replacement of a computer, and we will do our part in keeoinq you 
informed. 

This issue marks the completion of two years of publication for MICRO-80. The next 12 months 

promise to be even more exciting in microcomputing than the past. We intend to rise to the 

challenge in a number of ways. We will expand our coverage of the familiar computers and, in 
particular, will give increased support to the Model III. Not only will the magazine carry 
a lot of hitherto unpublished information about the internals of the Model III, but Eddy Paay 
is putting the finishing touches to his Model III ROM Reference Manual and a great Debug utility 
program for the Model III. Many more of our readers now operate disk systems so we will include 
much more information and programs for disk users. Then there are the colour computers. It 
is our intention to support the TRS-80 Colour Computer, at least. This will not be done at 

the expense of the space given to the TRS-80 Models I and III and the System 80, rather we will 
increase the size of the magazine to accoiwnodate the extra material. 

NEW PROGRAM LIBRARY AVAILABLE FREE TO MICRO-80 SUBSCRIBERS. 

We have developed a new program library of excellent quality and worth over $100 at retail value. 
The seven new programs on cassette or disk, together with a comprehensive and informative manual, 
will be sent free of charge to all new subscribers and to those who renew their subscription 
from Issue 25 (December, 1981) onwards. Further details of the programs contained in our new 
software library will be published shortly. 

INFLATION STRIKES (BUT JUST A LITTLE). 

The price for a 12 months' subscription to MICRO-80 has remained unchanged since we conmienced 
publication 2 years ago. During that time, the Consumer Price Index in Australia has increased 
by more than 20%. Commencing next issue, the price of a subscription to MICRO-80 magazine will 
increase to $26, a Cassette subscription to $65 and a Disk subscription to $125. These increases 
are very much less than the inflation rate and the increased revenue will assist us to improve 
the quality of your magazine still further. 

DIGITAL COMMUNICATIONS COMING TO AUSTRALIAN MICRO-USERS. 

One of the more exciting uses for a microcomputer is to use it as a correnunications medium, i.e. 
for one microcomputer to corimunicate with another several kilometers distant. Many of our readers 
have already tried sending programs over the telephone line by connecting amplifiers to the 
cassette port, we know. This is an unsophisticated version of an acoustic coupler which is 
widely used for transmitting digital information between corranercial computers. 

One method of implementing automatic data processing in a business is to use a time-sharing 
bureau via a dial-up line. Turning that jargon into some semblance of English, we find that 
an alternative to installing your own computer is to buy a terminal and printer and connect 
to a large computer via an ordinary telephone line. The large computer runs your programs in 
response to commands from the terminal and you can produce listings, reports, etc. on your printer. 
The large computer is shared by many other users which keeps the cost to each user down to an 
acceptable level. These computers are owned by companies called bureaus. The volume of data 
being transferred around the world at any one time is large and growing and is significant with 
respect to the amount of voice traffic handled by telephone lines. Many bureaus have computers 
in only one or two locations in the country and users' data is transferred by long distance 
telephone lines (usually high speed lines). In the extreme, the computer you are using might 
actually be on the other side of the world and your data is beamed around the globe via a satellite. 

All of the above is happening now and is expensive. One of the problems that bureaus have is 
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that most businesses want to process data during normal working hours, so large (expensive) 
computers and peripherals need to be installed to cope with peak traffic whilst, for at least 
half the time, these machines are very much under-utilised. Even attractive, low, off-peak 
rates fail to keep them fully utilised since it is usually prohibitively expensive for their 
customers to bring in staff at night to process data. 

About 18 months ago, an enterprising bureau in the U.S.A. had a bright idea. What if they reduced 
their off-peak rates way, way down, put some useful BASIC programs on their computers and sold 
off-peak time to personal computer users, most of whom were working for their employees in peak 
times anyway? Thus was born Micronet. Others were quick to follow. Electronic mail systems 
and bulletin boards abound. These are systems whereby computer owners across the country 
communicate with each other via the telephone lines and leave messages on disks driven from 

the host computer. 

Some more enterprising souls amongst the Australian microcomputing fraternity have joined their 
American colleagues by using the MIDAS link provided by the Overseas Telecommunication Company 

(OTC). Unfortunately, this can be very expensive indeed, possibly costing as much as $50-$60 
per hour, depending upon the amount of data transferred through the link. Help is at hand, 
however. An Australian microcomputer network has now been announced, called the AUSTRALIAN 
SOURCE, (no doubt after one of the most successful similar U.S. organisations, the SOURCE but, 
we understand, there is no direct relationship between the two). The AUSTRALIAN SOURCE will 
conmence operations in Melbourne early in 1982. Thereafter, it will become available in Sydney 
about 30 days later then Brisbane, Perth and Adelaide in that order so that, by about the middle 
of 1982, users in all major capital cities will be able to link up with the AUSTRALIAN SOURCE 
via a local telephone call. 

There is an initial fee of $100 to become an AUSTRALIAN SOURCE subscriber but founder subscriptions 

taken out prior to 1st February, 1982 can be had for only $60. Thereafter, users pay $10 per 

hour in peak time (8 a.m. - 6 p.m.) and $4.50 per hour in off-peak time (6 p.m. - 8 a.m.). 
MICRO-80 is very excited about the possibilities which this new venture opens to microcomputer 
owners. We will support the AUSTRALIAN SOURCE will articles explaining how to adapt your equipment 
to conmunicate with the SOURCE and membership of the SOURCE is available from our mail order 
department. In fact, we have reserved a number of charter memberships for our readers and we 

have also taken the unusual step (for us) of accepting an advertisement in our columns for the 

AUSTRALIAN SOURCE which gives you further information about this service (see back cover). 

As we s^id above, we will discuss the equipment requirements in more detail in a future issue. 

The minimum requirement, however, will be a duplex serial port able to operate at 300 baud and 

an acoustic coupler. At present an '80 user would require an expansion interface to meet the 
requirement for a serial port. We are looking at a cheaper alternative for those without expansion 
interfaces - more news in later issues. 

- 0000000000 - 

***** JOYSTICKS AND INPUT/OUTPUT PORTS FOR YOUR '80 by Alan Dent ***** 

PART 4 - SOFTWARE DRIVERS 

In this concluding part we will look at several driver programs to enable you to use both the 

joysticks and input/output ports. We had also intended to include full-sized masters for the 

PC board in this part. However, one or two tracks need to be added/changed and we have held 
over publication until the revised artwork is available (hopefully next issue). We will also 
announce the price of the PC board itself, in that issue. 

Last month we included two circuit diagrams on Page 12, without comment. These were for a port 
output monitor and a port input switch. The output monitor enables you to visually detect the 
status of each bit of an output port. Any bit having a value of 1 will cause its LED to be 
"ON". A LED will be off when its corresponding bit has a value of 0. The port input switch 

enables you to set up any desired bit pattern on an input port. You may like to check the oper¬ 

ation of your ports by writing a simple program to transfer the byte on the port input switch 
to an output port. Each bit that is "ON" at the input should also be "ON" at the output. 

Finally, the diagram below shows the buss connector numbering for the socket into which the 
ribbon cable to the TRS-80 keyboard, is plugged. 

O '•I 
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The first listing below contains three simple demonstration programs which enable you to move 
a dot around the screen, draw lines etc., using the joysticks. The first joystick program simply 

inputs the digital value of the voltage at the joystick moving arms. This is then processed 

to conform to the constraints of the level 2 X,Y maximums of 127,47 respectively. The graphic 
point location is then SET and RESET to flash the position of the joystick controlled graphic 
point. The 8 bit values of the two inputs are also displayed in decimal at the bottom left 
corner of the screen. The next program, accessed by RUN 100, is similar but does not RESET 
and hence draws a continuous line as the joystick is moved. The third joystick program, RUN 
200, combines the actions of both of the preceding programs. You can draw lines with the addition 
that if the space bar is pressed, the spot can be moved while flashing but not drawing, to a 

different location, ready to start drawing again. This one is a good one for young kids to 

play with. 


5 REH ttt THIS PROGRAM MOVES A SPOT AROUND THE SCREEN 

LINE 10 CLEARS THE SCREEN 

LINE 20 INTEGERS ARE FASTER 

LINE 30 FETCHES JOYSTICKS DIGITAL VALUE F 

6 REM LINE 40 TURNS OFF THE GRAPHIC POINT 

LINE 50 LIMITS "X" TO 127 

LINE 60 LIMITS "Y" TO 47 

LINE 70 TURNS ON GRAPHIC POINT 

LINE 80 PRINTS JOYSTICK DIGITAL VALUE 

LINE 90 LOOPS BACK TO FETCH NEW VALUES 

10 CLS 

20 DEFINT A-Z 
30 A=INP(0) g B=INP(1) 

40 RESET (XpY) 

50 X=A/2 

60 Y=B/5 g IF Y>47 THEN Y=47 
70 SET<X,Y) 

SO PRINT3960, "“X=”5Ai ",'’Y="|Bi" "p 

90 G0T030 

95 REM tttttttttttttttttttmttttmttttttmttttmmtmttttm 

100 REM THIS PROGRAMME DRAWS LINES ON SCREEN WITH JOYSTICKS 
105 CLS 

110 DEFINT A-Z 
120 A=INP(0) 

130 B=INP(1) 

140 X=A/2 

150 Y=B/5 ; IF Y>47 THEN Y=47 

160 PRINTS960, ■■X=‘'p A| ■■ "s"Y="pB|" "p 

170 SET (X,Y) 

180 GOTO120 

190 REM tttttttmttmmttttttttttttttttmttttttmttmttm* 

200 REM THIS PROGRAMME DRAWS LINES ON THE SCREEN OR MOVES 

A SPOT AROUND THE SCREEN IF THE SPACE BAR IS PRESSED 

205 CLS 

210 X=INP(0)/2 g Y=INP(l)/5 g IF Y>47 THEN Y=47 
220 SETCX^Y) 

230 IF PEEK(14400)=128 THEN RESET(X^Y) ” TEST FOR SPACE BAR 
240 GOTO 210 

290 REM tttmtttttmtttttttttmmtttttttmtttmttttttttttttttt 

300 REM THIS PROGRAMME SETS THE '"PPI" TO PORT 8 IN^ 9 & 10 OUT 
READS THE SWITCHES AT THE INPUT TO PORT 8g PRINTS 
THE DECIMAL AND HEX VALUE TO THE SCREEN AND OUTPUTS 
THE VALUE TO PORT 9 
305 CLS g PRINTCHR®(23> g 0UT(11)^152 
310 X=INP(8) 

320 PRINT35305Xp” 

325 REM LINES 330/340 CONVERT THE DECIMAL VALUE TO HEX 

330 A=INT(X/16)g IF A<10 THEN A^=CHR^ (A-«-48) ELSE A^=CHR^ (A-«-55 > 

340 B=X-Atl6 g IF B<10 THEN B*=CHR^ (B+48) ELSE B®=CHRS (B-«-55) 

350 C^=A$‘*'BS 

360 PRINT®550^C®p " 

370 OUT (9),X 
380 GOTO 310 

390 REM tttmmttttmttmttttttttttttttmtmtmttmtttttmmm 

400 ' THIS PROGRAMME SCANS THE KEYBOARD AND OUTPUTS THE ASCII 
VALUE TO THE LED DISPLAY AT PORT 9. 

IT ALSO READS THE SWITCHES AT THE INPUT TO PORT 8 AND 
DISPLAYS THE COMPUTER CODE IT REPRESENTS ON THE SCREEN 
405 CLS g PRINTCHR^(23) g 0UT(11>,152 
410 A^=INKEY^ g IFA®=‘*" THEN 440 
420 X=ASC(A«) 

430 0UT(9),X 
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440 X=INP(8) 

450 IF X=Y THEN 410 ELSE Y=X 

460 IF X>191 THEN X$="SPACE COMPRESSION CODE" ELSE IF X>127 THEN X$="GRAPHIC COD 
E "+CHR$(X) ELSE IF X>31 THEN X$= "CHARACTER "-t-CHR$(X) ELSE X$="CONTROL CODE" 
470 CLSsPRINTCHRSi(23) 

480 PRINT30,X4i 
490 GOTO 410 


We now move on to the parallel I/O ports. At RUN 300 we first program the PPI at address location 
8-11 by writing the control word decimal 152 to port 11, the control register location. Port 
8 IS then read to input the value of the switches connected to it. The decimal value and the 
HEX value is displayed on the screen and then written to port 9 to switch on the LED display 

port. The next program starting at 400, scans the keyboard and outputs 
the ASCII value to the LED's at port 9. It then reads the switches at the input to port 8 and 
prints on the screen the computer code that the switches represent. Rod Stevenson has written 
a machine language program which also allows you to draw pictures on the screen under joystick 
control. It is more elegant than mine as my speciality is in hardware and Rod has demonstrated 
his software ability with his series "BETTER BASIC PROGRAMMING". Rod's program is also included 
in the program listings in two versions. One is an EDTASM source listing, the other is poked 
in from a BASIC program. 


00100 5 

00110 ;WRITTEN 29/9/81 BY ROD STEVENSON TO USE JOYSTICK KIT 
00120 ;DEVELOPED BY ALLAN DENT FOR ADELAIDE USERS' GROUP. 
00130 5 

00140 ;L-KEY WILL DRAW LINE (DISABLES RESET) 

00150 ;D-KEY WILL MAKE DOT (TO ENABLE CURSOR TO BE MOVED) 
00160 ;SHIFT UP ARROW RETURNS TO BASIC 
00170 ;CLEAR-KEY WILL CLEAR SCREEN. 

00180 5 

00190 I MAY BE RELOCATED BY CHANGING ORG STATEMENT 
00200 5 THERE IS A VERSION CONVERTED TO BASIC POKE STATEMENTS. 
00210 3 


7F00 


00220 


ORG 

7F00 

CD7F0A 

00230 

USRVAL 

CALL 

7F03 

7D 

00240 


LD 

7F04 

32647F 

00250 


LD 

7F07 

CD5B03 

00260 

INKEY 

CALL 

7F0A 

FEIB 

00270 

RETN 

CP 

7F0C 

2006 

00280 


JR 

7F0E 

2A657F 

00290 


LD 

7Fil 

C39A0A 

00300 


JP 

7F14 

FEIF 

00310 

CLS 

CP 

7F16 

CCC901 

00320 


CALL 

7F19 

21647F 

00330 

LINE 

LD 

7F1C 

FE4C 

00340 


CP 

7F1E 

2002 

00350 


JR 

7F20 

365A 

00360 


LD 

7F22 

FE44 

00370 

DOT 

CP 

7F24 

2002 

00380 


JR 

7F26 

3664 

00390 


LD 

7F28 

DBOl 

00400 

YCOORD 

IN 

7F2A 

06FF 

00410 


LD 

7F2C 

04 

00420 

DIVD5 

INC 

7F2D 

D605 

00430 


SUB 

7F2F 

30FB 

00440 


JR 

7F31 

78 

00450 

6R47 

LD 

7F32 

FE2F 

00460 


CP 

7F34 

3802 

00470 


JR 

7F36 

3E2F 

004S0 


LD 

7F38 

6F 

00490 

NGR47 

LD 


DBOO 

00500 

XCOORD 

IN 

7F3B 

CB3F 

00510 


SRL 

7F3D 

67 

00520 


LD 

7F3E 

22657F 

00530 


LD 

7F41 

44 

00540 

ROM 

LD 

7F42 

7D 

00550 


LD 

7F43 

E5 

00560 


PUSH 

7F44 

2680 

00570 


LD 

7F46 

CD4B7F 

O0580 


CALL 

7F49 

1808 

00590 


JR 

7F4B 

E5 

00600 

GRAFIX 

PUSH 

7F4C 

C5 

00610 


PUSH 

7F4D 

218C18 

00620 


LD 


32512 

0A7FH pGET VALUE FROM USR(O) 

A,L 

(VALUE),A5SAVE VALUE FOR LATER 

35BH 3 INKEY ROUTINE 

OIBH 5 TEST IF SHIFT UP ARROW 

NZ,CLS 3 IGNORE IF NOT 

HL, (COORD)5COORDS TO BASIC 

0A9AH 3 BACK TO BASIC 

OlFH 3 TEST IF CLEAR PRESSED 

Z,1C9H 3CLS ROUTINE 

HL,VALUE!CHECK IF L PRESSED 

'L' 

NZ,DOT 3 IGNORE IF NOT 
(HL ),90 

'D' I CHECK IF D PRESSED 

NZ,YCOORD3 IGNORE IF NOT 
(HL),100 

A, (1) 3 GET Y VALUE 

B 5 OFFH 5 USE B AS COUNTER FOR DIVIDE 
B 3 DIVIDE Y COORD BY 5 

5 

NC,DIVD5 5 SUBTRACT TILL <=0 
A,B 3 ANSWER INTO A TO 

47 3 CHECK IF >47 

C 5 ,NGR 47 3 ignore IF NOT 
A,47 3 IF > 47 LET = 47 

L,A 3 L HAS Y COORD. 

A, (O) 3 GET X VALUE 

A 3 DIVIDE BY 2 

H,A 3 H HAS X COORD. 

(COORD),HL 3 SAVE COORDS FOR BASIC 
BjH 3 PREPARE FOR ROM ROUTINE 

A 5 L 

HL 3 SAVE LOCATION FOR RESET 

HjSOH 3 SET FLAG FOR ROUTINE 

GRAFIX 3 ROM ROUTINE 

RESET 

HL 

BC 

HL^ISSCH 
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7F50 

C35001 

00630 

JP 

150H 


7F53 

El 

00640 RESET 

POP 

HL 

SGET LOCATION 

7F54 

3A647F 

00650 

LD 

A,(VALUE);VALUE OF USRCO) 

7F57 

FE64 

00660 

CP 

lOO 

5 CHECK IF RESET REQUIRED 

7F59 

20AC 

00670 

JR 

NZ,INKEY 

;RESET IF FLAG 100 

7F5B 

44 

00680 

LD 

B,H 

;PREPARE FOR ROM ROUTINE 

7F5C 

7D 

00690 

LD 

A,L 


7F5D 

2601 

00700 

LD 

H,01 

PRESET FLAG FOR ROUTINE 

7F5F 

CD4B7F 

00710 

CALL 

GRAFIX 

5 ROM ROUTINE 

7F62 

18A3 

00720 

JR 

INKEY 


7F64 

00 

00730 VALUE 

DEFB 

00 

;SPACE FOR USR(O) VALUE 

7F65 

OOOO 

00740 COORD 

DEFW 

00 

;SPACE FOR COORDS. 

7F00 


00750 

END 

USRVAL 



20 P0KE16526,32512AND255:P0KE16527,INK32512/256):CLEAR50:P0KE16 
56K32512AND255:P0KE16562,INT(32512/256) 'FIRST SET PASSES 
LOCATION TO USR(O), SECOND SET PROTECTS MEMORY. CHANGE THESE IF 
YOU RE-ASSEMBLE ROUTINE IN A DIFFERENT MEMORY LOCATION. 

30 CLS:PRINT@448,"THIS ROUTINE ACCEPTS INPUT FROM THE JOYSTICK D 
EVELOPED BY THE ADELAIDE USERS' GROUP. IT REMAINS IN M/L UNTIL 
SHIFT-UP ARROW ISPRESSED. CLEAR-KEY WILL CLS. L-KEY WILL DRAW A 
LINE (DISABLE RESET). D-KEY WILL DRAW A DOT (ENABLE RESET)." 
40 F0RI=32512T032615:READD:P0KEI,D:NEXT 
50 DATA205,127,10,125,50,100,127,205,91,3,254,27,32,6,42,101,127 
,195,154,10,254,31,204,201,1,33,100,127,254,76,32,2,54,90,254,68 
,32,2,54,100,219,1,6,255,4,214,5,48,251,120,254,47,56,2,62,47,11 
1,219,0,203,63,103,34,101,127,68,125 

60 DATA229,38,128,205,75,127,24,8,229,197,33,140,24,195,80,1,225 
,58,100,127,254,100,32: 'TO RESET UNLESS 100 IS PASSED, CHANGE 
THIS LAST DATA ITEM (NOW 32) TO 40. HOWEVER, THIS WILL ALSO REVE 
RSE D AND L, SO D=L AND L=D 

70 DATA172,68,125,38,1,205,75,127,24,163: 'TO CHANGE ROUTINE SO 
IT DOES ONLY ONE LOOP, CHANGE FIRST DATA ITEM IN THIS LINE TO 1 

79 (NOW 172) AND LAST ONE IN THIS LINE TO 170 (NOW 163). CAN STI 
LL USE VALUE OF 100 TO SPECIFY A LINE OR DOT. 

80 DATAO,0,0,0 
90 PRINT(a24," 

100 PRINTOO,; 

no INPUT"INPUT 100 FOR DOT ONLY";A 
120 X=USR(A) 

130 PRIMT(a970,"X COORD =";INT(X/256), "Y COORD =";XAND255; 

140 G0T090 


I hope that these simple demonstration programs will convince you that the unit is very easy 
to program and use. If anybody develops a good program using this board, send it to MICRO-80 
for their evaluation - you may even work out a way to modify existing games programs to use 
the joysticks instead of the keyboard. We at the Adelaide Users' Group plan to develop other 
circuits which use this board as the main interface to the computer. Any that I design will 
probably be offered to MICRO-80 to publish if they feel it is "what the people want". We have 
a few ideas at the moment but any suggestions would be welcome. I may be contacted through 
the Users' Group address or MICRO-80 will pass on any readers' requests that they receive. 
I hope that those of you who construct this board get as much fun and use out of it as I have 
in the short time that it has been finished. I'm sure that hardware buffs will love it. 


- 0000000000 - 
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***** THE THEORY AND TECHNIQUES OF SORTING - Part 2 by B. Simson ***** 

Last month we considered a simple algorithm for sorting some numbers in memory using a technique 
of sorting by transposition or exchange, known as the bubble sort. However, if you ran the 
program LISTed there for a large number of digits (say 100 numbers) then you would have realised 
the considerable length of time it took to sort them. This is because in a bubble sort, the 
time taken is related to the square of the number of items being sorted (N^). Such a relationship 
means that the algorithm is not suited for large numbers and is conmonly limited to sorting 
lists of about 15 items. We could increase the efficiency somewhat by employing a technique 
known as "MERGING" substrings of sorted data, along with the bubble sort. 

Sorting often involves a trade-off between several resources, say memory and time. Some sorting 
algorithms are fast, but at the expense of using a large portion of memory in the process, depending 
on the application. Here, we shall consider a trade-off between actual sorting time, and time 
spent merging sorted substrings (subsets). 



I > 

I Designations change after > 


every merge phase 


Figure 1. Merging extracted subsets of the input array. 

Figure 1 explains the workings of the algorithm. We have the input array from which a subset 
of numbers of selected quantity is extracted serially and placed in the sort area, where the 
bubble sort processes them to produce a sorted list. This list is then merged with either array 
B or array C, depending on which one has been designated the array to be merged. Array B and 
C alternate in this designation, i.e. if B was the array to be merged in the last merge phase, 
then C will be merged with the sort area in this merge phase. The output of each merge phase 
is put into either B or C array, depending on which was used as output in the last merge phase. 
B and C also alternate in this function. So, in the first merge phase, a subset is extracted 
from the input array and sorted, then merged with array B (which is empty in the first phase) 
to produce a sorted list in array C. Next, another subset is extracted and merged with array 
C to produce a sorted list in array B this time. This continues until all items have been extracted 
from the input array, after which the array used as the output in the last merge phase is deter¬ 
mined, it being the final list of sorted data. 
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Now it is plain that the larger the sort area, the longer it will take to actually sort (bubhlpl 
but also, the sort area, the fewer extractions of subsets are made^from the inout 

This is lTlu?tmed"7„ ngurri'; is spent In merging. 


So a trade-off must be made, which is achieved by optimizing the subset length (therefore the 
sort area) The complete program employing this technique follows. An additional feature is 
an option to sort in descending order: 


760 CLEAR1:CLS;DEFINTA5 iB,C, ISPRINT315, "** BUBBLE SORT/MERGE **“sPRINT 
780 INPUT-SORT HOW MANY NO'S";N:DIMI(N),B(N),C(N) -fKlNI 

800 RANDOM:INPUT"RANGE (-32767 TO 32767) FROM";R1:PRINTTAB(26)INPUT"TO- 
2<=R1G0T0800 

820 F0RTX=1T0N:I(TZ)=RND(R2-R1)+R 1 ;NEXT:T=T% 

840 SL=INT(SQR(N*2))+1:IFSL>NTHENSL=N: REM DETERMINE OPTIMUM 
SUBSET LENGTH. 

860 DIMA(SL): REM A IS THE SORT AREA DESCRIBED ABOVE. 

880 AD$=“INPUT"ASCENDING OR DESC.(A/D)";AD$:IFAD$="A"G0T092O 

900 IFAD$<>"D"PRINT" HUH ???":G0T0S80 

920 PRINT"...SORTING...":FC =1 

940 REM EXTRACT SUBSET FROM INPUT ARRAY 

960 F0RT=1T0SL:A(T)=I(FC):FC=FC +1 

980 IFFC >NTHENT=T+1:GOTO1020 

1000 NEXT 


1020 GOSUB1740:T=N3+2 

1040 ' MERGE ROUTINE tt 

1060 ' CA,CB,CC ARE ELEM COUNTERS A,B,C 

1080 CA=1:CB=1:CC=1 

1100 IFAD$="D"GOTO1480 

1120 IFB1=1G0T01320 

1140 ' TEST FOR EOF FOR EITHER ARRAY 

1160 IFCB>S1FORL=CATOT-1:C(CC)=A(L):CC=CC+1:NEXT:GOTO1240 
1180 IFCA=TFORL=CBTOS1:C(CC)=B(L):CC=CC+1:NEXT:GOTO1240 
1200 IFA (CAXB (CB) C (CC) =A (CA) : CA=CA+1ELSEC (CC) =B (CB) : CB=CB+1 
1220 CC=CC+1:GOTO1160 

124u B1=1:S1=CC-1:GOTO1380 'MERGE COMPLETE,CHANGE MERGE ARRAY,SET EOF 
1260 ' ARRAY C IS MERGE ARRAY 

1280 IFCC.>S1F0RL=CAT0T-1:B(CB)=A(L) :CB=CB+1; NEXT: GOTOl360 

1300 IFCA=TFORL=CCTOSl:B(CB)=C(L):CB=CB+1:NEXT:G0T01360 

1320 IFA(CA)<C(CC)B(CB)=A(CA) :CA=CA+1ELSEB(CB)=C(CC) :CC=CC-»-l 

1340 CB=CB+1:GOTO1280 

1360 B1=0:S1=CB-1 

1380 M=M+1; IFFCONG0T0960 

1400 REM PRINT SORTED DATA 

1420 F0RT=1T0S1:IFB1=0PRINTB(T);ELSEPRINTC(T )5 

1440 NEXT:PRINT:PRINT" SUBSET LENTH:";SL:PRINT" NO OF MERGES:":M:END 
1460 ' DESCENDING SEQ. 

1480 IFB1=1G0T01640 

1500 IFCB .>S 1 FORL=CATOT-1: C (CC ) =A ( L ) : CC=CC+1: NEX T : GOTO 1580 
1520 IFCA=TFORL=CBTOS1:C(CC)=B(L):CC=CC+1:NEXT:GOTO1580 
1540 IFA(CA)>B(CB)C(CC)=A(CA):CA=CA+1ELSEC(CC)=B(CB):CB=CB +1 
1560 CC=CC+1;GOTO1500 
1580 B1=1:S1=CC-1:G0T01380 

1600 IFCC>SlFORL=CATOT-l :B(CB)=A(L) : CB=CB-«-l : NEXT: GOTO 1680 
1620 IFCA=TF0RL=CCT0S1:B(CB)=C(L):CB=CB+1: NEXT:GOTO1680 
1640 IFA(CA)>C(CC)B(CB)=A(CA):CA=CA-HELSEB(CB)=C(CC):CC=CC +1 
1660 CB=CB+1:GOTO1600 
1680 B1=0:S1=CB-1:G0T01380 
1700 ’ ** SORT ROUTINE »* 

1720 ' T=SUBSET LEN. +1,N=LEN. OF INPUT SUBSET. 

1740 T=T-1: N3=T-1: FORN1 '/.= 1T0N3: N4=0 

1760 F0RN27.= 1T0(T-1) : IFAD$="D"G0T01860 

1780 I FA (N2% )< = A (N27.+1) GOTO 1820 

1800 A1=A(N27.) : A (N27.) =A (N2%+1) : A (N27.-I-1) =A1: N4=l 

1820 NEXT:IFN4=0RETURN 

1840 T=T-1:NEXT:RETURN 

1860 I FA (N27.) >=A (N27.+1) GOTO 1820ELSEG0T01800 


R2:IFR 


The program displays the length of each subset 
of merges involved in the whole process. 


used for extraction and sorting. 


and the number 


By using merging techniques with the bubble sort, an increase in effici 
based on an input list size of 100 items. That is:- 


ency of 270% was obtained 
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100 items with straight bubble .... 130 seconds 
100 items with bubble sort/merge ... 48 seconds. 

It can be seen that merging techniques strip a considerable amount of time off the entire process. 
In fact, merging is such an efficient technique that an entire sorting algorithm, known as the 
merge sort, is based on merging principles. 

We shall leave the bubble sort algorithm here, and consider some other sorting techniques of 
varying efficiencies. Last month I finished off by saying that the next article will consider 
techniques of sorting "by insertion". However, this will be postponed and instead, another 
simple sorting routine will be presented, this time involving a technique of sorting "by selection". 
This algorithm involves a search of elements in an array to locate the one with the smallest 
value (or "key"). When found, it is exchanged with the first element in the array. This places 
the element with the smallest key in the first position in the array. This process is repeated 
for the remaining elements to select what will become the second smallest value which is inter¬ 
changed with the second element in the array. The process of searching for the element with 
the next smallest value and placing it in its proper position (by exchanging elements) continues 
until all elements have been sorted. This is known as the selection sort, the program for which 
appears below: 


2110 REM N=NO OF ELEMENTS TO BE SORTED 

2120 REM MIN=MINIMUM FOUND SO FAR 

2130 REM P=POINTER TO MIN 

2140 REM I=PASS COUNTER 

2150 REM T=TEMPORARY VARIABLE USED FOR EXCHANGING 

2160 REM 

2170 IF N<2 THEN 2250 
2180 FOR 1=1 TO (N-1) 

2190 MIN=A(I)sP=I ’SET MINIMUM BEFORE SEARCH 

2200 FOR J=<I4-1) TO N ’START FROM NHERE YOU ARE 

2210 IF A<J)<MIN THEN MIN=A(J)sP=J ’FOUND A LOWER ONE 

2220 NEXT J 

2230 IF POI THEN T=A < I) s A < I) =A (P) s A (P> =T ’EXCHANGE 
2240 NEXT I 
2250 RETURN 

2260 <END OF PROGRAM> 

2270 ’ 

2280 ’HERE FOLLOWS THE DRIVER, WHICH BUILDS THE INPUT ARRAY, 
2290 ’DISPLAYS THE DATA, CALLS THE SORT, AND DISPLAYS THE 
2300 ’SORTED RESULTS. 


Here follows the driver, which builds the input array, displays the data, calls the sort, and 
displays the sorted results. 

2320 INPUT"HOW MANY NUMBERS"|N 
2330 CLSg DIM A<N)s RANDOM 
2340 FOR 1=1 TO N 
2350 A(I)=RND(1000)gPRINTA(I); 

2360 NEXT Is PRINT 

2370 INPUT"HIT ENTER TO START"|I 

2380 60SUB 2170 

2390 FOR 1=1TO N 

2400 PRINTA<I)5 

2410 NEXT I 

2420 END 


To further explain the functions of this algorithm, consider the trace of the first pass. 
Assume array before sort is: 12, 18, 15, 6, 13. 


MIN 

CONSIDERING... 

POSITION OF MIN 

12 

18 

1 

12 

15 

1 

12 

6 (Moved to min) 

4 (updated) 

6 

13 

4 


Now, since the position of the minimum has changed from that at the start of the pass, an exchange 
is performed between the 1st and 4th items, so that the data after the first pass looks like 

this: 


6, 18, 15, 12, 13. 
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The second pass will commence searching data from the second item onwards (i.e. 

1 IS occupied by the smallest value in the array, and hence is its final position. 


18) since position 


The efficiency of the selection sort is also of order 
efficiency and compare it, by mathematical analysis, with 


2 

(N ). A later article will examine the 
other sorting routines. 


This means that the selection 
any reasonable response times, 
mented, using the machine's 
the smallest element in a list 


sort IS also limited to small (15-20) input table sizes to obtain 
However, it may be more efficient than the bubble sort if imple- 
instruction set, on a machine having firmware available to find 
at high speed. 


TO SUr^IMARIZE... 


like the bubble sort are not efficient for large list 
1 proportional to N^. The efficiency of such sorts can be improved SMewhat 

merging, which involves a trade-off of some kind. Another simple 
selection sortl^ available, based on the principle of straight selection and known as the 


Next month we shall be looking at yet another technique of sorting, that of sorting "by insertion" 
along with some of its variations. 


- 0000000000 - 


• * * • SOFTWARE SECTION * * * * 


***** TIC TAC TOE - Level I TRS-80 by B. Smith ***** 


TAr^rnr^T The first computer game I ever wanted to play on owning a computer was TIC 

crosses). So I purchased a Tandy’s game pack that had a program called 
random TIC TAC TOE. This game to me was a let-down because firstly, it was slow and secondly 
at every input it altered the location of the 'X’s and 'O's around the board. Very confusing! 

hLi ‘thinks’ its next move. Remember, it will win first 

before blocking your move. It should keep you on your toes. The computer always plays the 
nniinhtc and tho Wnr^an Opponent the X’s. a'way:* pi ays cne 

draw the grid and number the squares. 

allow the human player to choose the position for his next X, checks input 
for validity then places the ’X’ in a valid position, 
redraw previous positions of ’X’ and ’0’ after every new input, 
computer's move. 

test for the presence of a winning combination, 
test for two X’s in a line so that computer may block them. 

check if there are two ’O’s on any line and places a third to give victory 
to the computer. 


Li 

nes 

6-11 

Lines 

13-250 

Li 

nes 

260-274 

Li 

nes 

280-295 

Li 

nes 

399-418 

Li 

nes 

580-622 

Li 

nes 

625- 


1 REM t TIC TAC TOE FOR LEVEL 1 16K RAM USERS t 

2 REM t BY B SMITH 7 INNES ST ALBANY WA t 

3 CLS:P.A.463,"DO YOU WANT TO GO FIRST.(YES OR NO)";:I.M 

4 A=0:B=0;C=0:D=0!E=0:F=0:B=0sH=0:I=0:Q=0!L=0s Z=0 

5 CLSsP.A.27,"TIC TAC TOE" 

6 P.A.84,"1":P.A.93,"2";P.A.102,"3"!P.A.276,"4":P.A.2S5,"5" 

7 P.A.294,"6"!P.A.46S,"7":P.A.477,"8"!P.A.4S6,"9" 

8 X=56:F.Y=3T028sS.<X,Y)sN.Y 

9 X=73!F.Y=3T028:S.(X,Y):N.Y 

10 Y=llsF.X=40T089:S.(X,Y)sN.X 

11 Y=20;F.X=40T089:S.(X,Y):N.X 

12 IFM=NT.280 

13 P.A.704,»Y0UR MOVE (X) - WHICH NO.";=I.JsIF(J>9)+<J<1)T.250 

14 Z=l:IFJ=1T.23 

15 IFJ=2T.25 

16 IFJ=3T.27 

17 IFJ=4T.29 

18 IFJ=5T.31 

19 IFJ=6T.33 

20 IFJ=7T.35 

21 IFJ=8T.37 

22 IFJ=9T.39 

23 IFA>0T.240 

24 A=lsP.A.152,"X":G.260 

25 IFB>0T.240 
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26 

B=1:P.A.160,"X' 

:G.260 

27 

I FOOT, 240 


28 

C=1:P.A.168,"X‘ 

sG.260 

29 

IFD>0T.240 


30 

D=lsP.A.344, "X' 

:6.260 

31 

IFE>0T.240 


32 

E=1:P.A.352, "X‘ 

:G.260 

y.y. 

IFF>0T.240 


34 

F=1:P.A.360,"X' 

sG.260 

35 

IF6>0T.240 


36 

6=1:P.A.536,"X' 

S6.260 

37 

IFH>0T.240 


38 

H=1:P.A.544,"X' 

:G.260 

39 

IFI>0T.240 


40 

I=1:P.A.552,"X' 

‘:6,260 


240 P.A.704,"YOU CAN’T USE THIS NO..IT’S ALREADY IN USE. TRY A6AIN. 

241 F.N=lT01500sN.N:P.A.704,“ 

242 0.13 

250 P.A.704,"YOU MUST USE NUMBERS BETWEEN 1 Zt 9.“;6,241 

260 IFB=1T.P.A.160,"X" 

261 IFB=4T.P,A.160,"O" 

262 IFC=1T.P.A.168,"X" 

263 IFC=4T,P.A,168,"Q" 

264 IFE=1T.P.A.352,"X" 

265 IFE=4T.P.A.352,"O" 

266 IFF=1T.P.A.360,"X" 

267 IFF=4T.P.A.360,“O" 

268 IFH=1T.P.A.544,"X" 

269 IFH=4T.P.A.544,"O" 

270 IFI=1T.P.A.552,"X" 

271 IFI=4T=P.A.552,"O" 

272 60S.399 

273 IFZ=2T.280 

274 G.13 

280 P.A.704," IT’S MY TURN.______"sF.N=lT01000sN. N 

282 IFQ=OT.GOS.550;6.284 

283 IFQ=1T.625 

284 IFL=1T,P.A.152,"O":A=4:G.260 
235 IFL=2T,P.A.160,"O"sB=4;6.260 

286 IFL=3T.P.A.168,"O":C=4:6.260 

287 IFL=4T.P.A,344,"O"sD=4:G.260 

288 IFL=5T.P.A.352,"O"sE=4s6,260 

289 IFL=6T.P.A,360,"O":F=4s6-260 

290 IFL=7T.P.A.536,"O"s G=4s G.260 

291 IFL=8T.P,A,544,"O"sH=4sG.260 

292 IFL=9T.P-A.552,"O":I=4s6.260 

293 GOS.399 

294 Z=Z-2 

295 G.13 

398 E. 

399 X=56sF.Y=3T023:S.<X,Y)sN.Y;X=73sF.Y=3T028!S.(X,Y)sN.Y 

400 K=A+B+C;IFK=3T.500 

401 IFK=12T,505 

402 K=D+E+F;IFK=3T.500 

403 IFK=12T.505 

404 K=6+H+I:IFK=3T,500 

405 IF!<=12T.505 

406 K=A+D+G sIFK=3T.500 

407 IFK=12T.505 

408 K=B-i-E+H s I FK=3T . 500 

409 IFK=12T.505 

410 K=C+F+I!IFK=3T.500 

411 IFK=12T.505 

412 K=A+E+I;IFK=3T.500 

413 IFK=12T.505 

414 K=C+E+G sIFK=3T.500 

415 IFK=12T.505 

416 IF<A>0) t <B>0)«<C>0) t (D>0) t (E>0) t <F>0)«<6>0)* <H>0)S <I>0)T-510 

417 Z=Z+1 

418 RET. 

500 P.A.704," 

501 P.A.714,"#** YOU WIN - WELL DONE. 

502 P,A.849,"WANT TO PLAY AGAIN.(YES OR NO)";:I.M 

503 IFM=YT.3 

504 CLS;E. 

505 P.A.704," 
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506 P.A.716, I BEAT YOU DUMMY. ttf 

507 e,502 

510 P.A,704," 

511 P. A.720, IT’S A DRAW. #**" 

512 6,502 

550 Q=lsL=RND(9) 

551 IFL=lT.56i 

552 IPL=2T,563 

553 IFL=3T.565 

554 IFL=4T,567 

555 IFL=5T.569 

556 IFL=6T.571 

557 IFL=7T.573 

558 IFL=ST,575 

559 IFL=9T,577 

560 RET. 

561 IFA>0T.550 

562 RET, 

563 IFB>0T,550 

564 RET. 

565 I FOOT, 550 

566 RET, 

567 IFD>OT.550 
56S RET. 

569 IFE>0T.550 

570 RET, 

571 IFF>0T,550 

572 RET, 

573 IFG>0T,550 

574 RET, 

575 IFH>0T,550 

576 RET, 

577 IFI>0T,550 

578 RET. 

580 REM t TEST FOR POSITIOM OF ’X’ TO BLOCK t 

581 IF(<A=1) t (B=i))+((A=l) t (C=l))+(fC=l) t <B=1))T,591 

582 IF <(D= 1)ti E=1)) + <(D=1)t f F=!)) + <(E= 1)t( F=1) )T,595 

583 IF ( (G= 1) Sc (!-!= 1) ) + ( (G= 1) Sc (l = i) ) + ( (H= 1)*(I = 1) )T, 599 

584 IF ( (A= 1) Sc (D= 1) ) + ( < A= 1) Sc (6= 1) ) + ( < D= 1) f < G= 1) ) T, 603 

585 IF ( (B= 1) Sc (E= 1) ) + ( < E= 1) 4 (H= !)) + ((B= 1) S: ( H= 1) ) T - 6c')7 

586 IF ( < C= l)Sc<F=l> ) + ( (F=1)&<I = 1) ) + ( (C= 1) Sc < I = 1 > ) T, 611 

587 IF ( (A=l) t (E=l) ) + ( (E=l) Sc (1 = 1 ) ) + ( (A=l ) f (1 = 1) )t]615 

588 IF < (C=l) t (E=l) ) + ( <E=1) Sc (G=l) ) + < (C=l ) « (6=1) ) T. 619 

589 Q=0;G,282 

591 IF(A>0) t (B>0) t <C>0)T,582 

592 IFA=0T,L=1;G,284 

593 IFB=0T,L=2s6.285 

594 L=3;6,286 

595 IF (D>0) t (E>0) Sc (F>0) T. 583 

596 IFD=0T,L=4sG,287 

597 IFE=OT.L=5 s 6.288 

598 L=6sG,289 


599 IF(6>0) t <H>0) t <I>0)T.534 

600 IF6=0T.L=7:G.290 

601 IFH=0T.L=SsG.291 

602 L=9;6.292 

603 IF <A>0) Sc (D>0) t (G>0) T. 585 

604 IFA=OT.L=1s 6.284 

605 IFD=0T.L=4;6.287 

606 L=7;6.290 


607 IF <B>0) Sc (E>0) Sc (H>0)T.586 

608 IFB=OT.L=2;G.285 

609 IFE=OT,L=5:6.288 

610 L=8;G.291 

611 IF <C>0) t (F>0) t (I>0)T.587 

612 IFC=0T.L=3:G.286 

613 IFF=0T=L=63G.289 

614 L=9:G.292 

615 IF <A>0 )t (E>0) til >0)T,583 

616 IFA=0T.L=l!!G.284 

617 IFE=0T.L=5sG.28S 

618 L=9;6.292 

619 IF (0-0) t (E>0) t (G>0) T. 589 

620 IFC=0T,L=3:G,286 

621 IFE=0T.L=5;G.28S 

622 L=7;6,290 
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624 REM t TEST FOR POSITION OF "O’ TO UIH t 

625 IF ( (A=4) t (B=4) ) + ( (A=4) « (C=4) > + ( (B=4> t (C=4) ) T= 591 

626 IF<(D=4)*(E=4)) + ((D=4) t (F=4))+< <E=4> #<F=4))T.595 

627 IF((G=4>*(H=4)>+((B=4)*(I=4))+((H=4)#(1=4))T.599 

628 IF((A=4)S<D=4))+<(A=4)f(G=4>)+((D=4)#<G=4))T.603 

629 IF((B=4)S(E=4))+((E=4)*(H=4))+(<B=4)f(H=4))T.607 

630 IF(<C=4)*<F=4)) + <(F=4)f(1=4)) ^-((C=4)*<I=4))T„611 

631 IF((A=4)*(E=4))+((E=4)®(1=4))+((A=4)$(1=4))T.615 

632 IF<(C=4)#<E=4))+(<E=4)t<G=4))+<(C=4)t(G=4))T.619 

633 G.581 


***** ATTACK Disk Basic - L2/16K by M. Bloss ***** 

Attack is a fast,, exciting game with sound. Your space ship is at the bottom of the screen 
but all that is shown is your cannon. An alien ship appears at the top of the screen and fires 
rockets at you. You must intercept each rocket by firing your cannon and blowing it up. 


The closer the rocket is to the alien ship when you hit it, the higher your score. There are 
eight columns on the screen down which the alien fires, and in which the cannon is able to move 
and fire. If you miss a rocket it will destroy you which terminates the game. The longer you 
play, the faster the game. 

To hear the sound, connect an audio amplifier to the plug that normally goes into the AUX socket 
of the CTR-80. Alternatively, remove all the plugs from your cassette recorder, connect the 
AUX plug into the MIC socket on the recorder, press down the PLAY key and turn up the volume. 
Thanks are due to C.E. Kendall for his KEYBOARD BLEEPER program published in MICRO-80, Issue 
12 . 


When entering the program. Disk users should remove the apostrophe (') from the beginning of 
line 40. Level II users may omit line 40 altogether. 


20 =■ 


SYSTEM-SO OWNERS ADJUST LINES 1080 TO 1100 AS PER COMMENTS 


30 G0SUB1050 

40 CLEAR1500 s DIMNA$ < 30)s Z Z=50 s" 


50 " DEFUSR=S.:H407B ; REMEMBER DISK USERS UNCOMMENT THIS LINE 


60 S0SUB360 

70 SC=Os SH=03 G=G+1;CLSs PRINT3532,NA$(G )3 ■” S TURN "5 F0RGG=iT0250Os 

NEXTSGsCLS 

80 G0SUB330 

90 X=16352 

100 M=66;G0SUB820 

110 G0SUB140 

120 RANDOM 

130 S0T0210 

140 A$=INKEY$ 

150 IFA$="1"THENX=X-55IFX<i6339THENX=X+5 
160 IFA$="1"THENG0SUB840 

170 IFA$="2"THENX=X+5!IFX>i6380THENX=X-5 
ISO IFA^="2"THENG0SUB1010 
190 IFA$='‘ "THEN60SUB290 
200 G0SUB2S0!RETURN 

210 A=RND(S)!F0RZ=1T0ZZsG0SUB140;NEXTs ZZ=ZZ--2 
220 A=53S:A+17 

230 R=USR <-5120);FORAA=A+15360T0A+16256STEP64 

240 GOSUB140;POKEAA,144;POKEA+15359,130;POKEA+15360,134;T pAA >154 

24THENP0KEAA-64,128 

250 P0KEAA,128 

260 NEXTAA 

270 GOT07iO 
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280 POKEX- 15 , 1 hO ; POKEX, 180; RETURN 

290 FCRXX=X-64T0X-960STEP-64?P0KEXX,132sPOKEXX+64.12Ss60SUB2SO;p 

OKEXXj128:IFXX=AATHENC=1;XX=X-960 

300 NEXTXXs IFC=1THEN740 

310 POKEX-960,128 

320 RETURN 

330 F0RN=19T060STEP41;F0R0=15360+NT0i632O+NSTEP6A-POKED 149-NEXT 
0,N 

340 XN=77s F0RNN=600T00E-TEP—100;PRINT3XNa NN;s TFNN=100THENXN=XN+13 

0ELSEXN=XN+128 

350 NEXT;RETURN 

360 CLS;FORL=lT07:PRINTCHR$(23):;PPINT"A T T A C PRINT-NE 

XTL 

370 F0RL=1T050; A=USR (L«256.) ; F0RLL=1T025: NEXTLL, L 

380 CLSSPRINT“YOU ARE ON THE SPACESHIP ,THE BALACTIC RUN" 

390 PRINT“WHILE PASSING THE GALAXY 74RV2,Y0U CONE UNDEP ATTACK" 
400 PRINT“BY A FLEET OF ALIENS." 

410 PRINT“YOUR JOB IS TO SHOOT DOWN THESE ALIENS AND SCORE POINT 
S. " 

420 PRINT;PRINT"YOUR SHIP IS AT THE BOTTOM OF THE SCREEN AND ONL 
Y THE" 

430 PRINT"GUN IS SHOWN.THE ALIENS FIRE FROM THE TOP OF THE" 

440 PRINT"SCREEN DOWN ANY OF THE 8 COLUMNS COVERED BY YOUR SPACE 
SHIP" 

450 PRINT"YOU HAVE TO INTERCEPT THE MISSILE AND BLOW IT UP BEFOR 

460 PRINT"IT REACHES YOUR SPACESHIP AND DESTROYS IT." 

470 G0SUB650 

480 CLS;PRINT"TO MOVE YOUR GUN PRESS THE <'1> KEY TO MOVE LEFT AN 
D" 

490 PRINT"THE <2> KEY TO MOVE RIGHT.TO FIRE PRESS THE <SPACED BA 
R" 

500 PRINT"THE AMOUNT OF POINTS YOU GET DEPENDS ON HOW FAR UP" 

510 PRINT-THE SCREEN YOU HIT THE MISSILE." 

520 PRINT"THE NUMBERS TO THE LEFT" 

530 PRINT"TELL YOU HOW MUCH YOU GET." 

540 PRINT"IF YOU GET HIT THAT IS THE END OF YOUR GAME." 

550 PRINT“AS THE GAME PROGRESSES,THE ALIENS FIRE AT YOU MORE A6R 
ESSIVELY." 

560 PRINT"TO WIN YOU MUST HAVE THE HIGHEST SCORE" 

570 PRINT;INPUT"HOW MANY PLAYERS(MINIMUM OF 2)";P 
580 IFP<2THEN570 

590 CLS;PRINT"ENTER YOUR NAMES ONE AT A TIME" 

600 F0RI=1T0P;INPUTNA$(I);NEXTI;RETURN 

610 SC<G)=SC;SH(6)=SH;PRINT"END OF GO";IFSH=20THENPRTNT"YOU HAVE 
RUN OUT OF ROCKETS" 

620 IFG=PTHENS60 

630 PRINT"NEXT PLAYER PLEASE PRESS ENTER TO START" 

640 INPUTR$;B0T070 

650 PRINT"PRESS ANY KEY TO CONTINUE" 

660 F0RL=1TO10000;0$=INKEY$;IFQ$< >""THENL=10000;G0TD680 
670 LL=RND(50)+70;R=USR <LL#256)s F0RLA=1T025;NEXTLA 
680 NEXTL:RETURN 
690 RETURN 
700 G0T0700 

710 G0SUB970;F0RV=1T040;R=USR(-2560);NEXTV;CLS;PRINT"K A B O O M 

I I (I 

720 PRINT-A MISSILE HIT YOUR SHIP AND BLEW IT UP" 

730 S0T0610 

740 C=0;P0KEXXy128;POKEXX—65,128;POKEXX—64j123;60SUB1030;FORV=lT 
012;P=USR (O) ;NEXTV;G0SUB1040;F0RQQ=1T0100;NEXTQQ;IFAAC15551THENSC 
=SC+600;G0T0S30 

750 IFAA<15679THENSC=SC+500;G0T0830 
760 IFAA<15807THENSC=SC+400;G0T0830 
770 IFAA<15935THENSC=SC+300;G0T0830 
780 IFAA<16063THENSC=SC+200;G0T0e30 
790 IFAAC 16191THENSC=SC+100 
800 G0T0830 

810 IFSC<10000THENM=65ELSEM=64 

820 PRINTS1 5 "SCORE";;PRINTSM,SC;:RETURN 

830 G0SUB810;F0RER=A-lT0395+ASTEP64;PRINT;i)ER, STRINGS (2, 128^ S ;NEX 
TER:GOT0210 

840 IFX<16339THENP.ETURN 

350 POKEX+4,12S;P0KEX+5,128;RETURN 

860 PRINT"THESE ARE THE FINAL SCORES" 

870 F0RG=1T0P 
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8S0 

S90 

900 

910 

920 

930 

950 


PRINTNA$ <G) = " USED UP"5 SH(G)p"SHOTS 
frnRc;= i TOHOO s ^JE ~ TS G 
FQR6=1TCP 
pfic-fj—1 TOP 

IFSC i G•< =SCiD-THEM940 

UU (G) (G) +1 s IFWW (G) =P-1 THEr4950 

PR I NT; PR 114TNA^ < G) | " WON WITH " ? SC < G) p 


AND SCORED" = SC(G) 


" POI ^4TS. CONOR ATUL AT IONS? 


9 .£.(j pp I i^jT; I^4PUT"PLAY AGAIN“ ; A^? A$=LEFT* (A$, 1) ? IFA$= " V"THEN40ELSE 
PRINT"GOODBYE FOR NOW";END 

97 -f; PQpEy — 1,1 28 z POLEX, 128; POKE 1 ■£•342, 181 ? POKE 16348 ^ 181 s POKE16353, 

1 -i-T ; p-QpE 1 £. 35=59 ^ i 79 . POKE 1 -ST-fjS, 178; POKE 16372, 18-6 ? POKE 1 63765 146 
P 0 f) POKE 16276 , 161s POKE 16281, 1-61 s POKE 1 ■6233 , 1 -61 s POKE 1 ■6294 ^ 177 s POKE 
1 629.6,173s POKE 16302, 146 s POKE 16309, 14^6 s POKE 1 ■6314, 146 
ppo POKE 1 ■6216,162, s POKE 1 -6223, 1 b'Z s POKE 16229, 1 -61 s POKE 1 ■6233, 14-65 POKE 
1 4.*^ ^ P'nK'^ 1 , 14?^ 

j 000 POKE 16153 5 1 -61 5 POKE 161 -64, 162 s POKE 1-6170, 145 s POKE 1 ■6176 , 146 s POK 
E1 -6100,145= POKE 1 ^610^6,162= PR INT8433, " K A B O O ii ! " ; 5 RETURN 
1010 IPX >16330THENRETyRN 
1020 POKEX --65 IBSsPOKEX-S, 12Ss RETURN 

1030 POKEAA+63,146= POKEAAhs- 65 , 161 = POKEAA-^65,161s POKEAA-.63 5 146s POK 
132 = P0KEAA~2, 132= POKEAA+1, i 3 i 65 POKEAA+2, 136 s RETURN 
1040 POKEAA-2,128s POKEAA+2,123= FQRWS=AA~63T0AA+65STEP64s POKEWS,1 
28= NEXTs F0RWS=AA-65T0AA+^63STEP64s POKEWS,128= NEXTs RETURN 
1050 FOR.J=1 ■6435T01 ■6437 s READ I s POKE,! , I s NE X T 
1060 FOR^J=164S0T016513 s READ I s POKE J, I s NE X T 
.KO7O-P0KE"1'64€35-J"O. 

1080 DATA 195,96,64 3 205, 227 5 3,183 , 200, 8 , 14,20, 63, ■62 , 1, 2 11,255 16, 
254 5 h3 ,-62,2,211,255, 1 -6 , 254 , 13,32,239, 85201 ,205,127,10, 205 , 101,64, 
201 

j_Q90 'REliEliBER TO UNCONNENT THIS LINE AND DEL-ETE LINE lOTiT-.IF 

your .GOliPUTERr IS' A SYSTEH 80= DELETE ALL' OF" THIS LINE"'UP.'TO 

here, BATA195,96,64,205,227,3,183= 200,8,14,20,68,62,5,211,255,16 
,254,68,62,6,211,255,16,254,13,32,239,8,201,205,127,10,205,101,64 
,201 

ilOO -REHEMBER"-'"T 8 UNGOliHENT THIS LINE AS WELL,.!JP^'”-TO.HERE = 

1110 POKE 16526,123= POKE 16527, -64 s RETURN 


***** BASIC LINE REFERENCE VALIDATOR Level 2/4K-16K by K. Shillito ***** 

This little program snuggles itself into a part of memory that the BASIC interpreter never uses. 
Thus, even if the memory is “full”, this program can still be loaded and run! You can create 
it using BMON or with an assembler. 

** PROGRAM FUNCTION ** 

The purpose of this program is to detect all instances of reference to non-existent lines in 
BASIC programs, (including direct comnands, except the LIST conand, which does not generate 
an error for non-existent lines). 

** LOADING AND RUNNING THE PROGRAM ** 

Type SYSTEM, then NONAME, then press BREAK. 

The program is now available whenever required. To run it, press SYSTEM, followed by /I6455, 

The program will give ?FC ERROR followed by the number of the first line it encounters containing 
a reference to a non-existent line number (e.g. GOTO 300, where 300 doesn’t exist). After 
correcting the error, run it again to see if there are further errors. It is advisable to run 
this program before using a RENUMBER utility (such as BMON), 

** WARNING ** 

This program may give spurious error messages if you have somehow POKEd graphics characters 
into strings or remarks. This is not normally possible unless you used a special utility such 
as S-KEY to do it. 

** TECHNICAL COMMENTS ** 

This program occupies only 59 bytes and resides from 16455 to 16504, an area of memory that 
is never used by BASIC. Hence, it can be used even if memory is completely full. The program 
will not detect references unaccompanied by key words. Also, it will detect certain types of 
syntax errors. It does not detect a reference in the form 'DELETE-30, which is unlikely to 
occur anyway. Apart from these exceptions, it should pick up all references, including some 
which BMON's RENUMBER misses. 
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** RELOCATION ** 


The program can be relocated. No re-assembly is needed. 
** HEX CODE ** 


4047-404E 

404F-4056 

4057-405E 

405F-40&6 

4067-406E 

406F-4076 

4077-407E 

407F-40S2 


2A 

A4 

40 

D7 

4E 

23 

46 

ED 

FE 

00 

28 

IE 

01 

07 

00 

ED 

D7 

30 

ED 

CD 

2C 

IB 

El 

D2 

20 

EE 

23 

18 

CA 

8E 

9F 

B6 


CA 

66 

00 

23 

43 

A2 

40 

D7 

EB 

21 

7C 

40 

B1 

EB 

20 

EF 

5A 

IE 

E5 

CD 

4A 

IE 

AF 

BE 

CE 

91 

8D 

95 


START ADDRESS 4047 
NAME NONAME 


** METHOD OF OPERATION ** 


The program uses an area of RAM starting at 4047H and ending with the USR pointers that is never 
used by BASIC. It makes the following assumptions about BASIC syntax: 

1. Basic line references only occur after the tokens (in hex) 8D, 91, CA, 95, 8E or B6 (the 
LIST tokens B4 and B5 cannot have invalid line references, so they are not included in the 
program), possibly with interspersed blanks. 

2. Where a line reference occurs, followed by a non-zero byte that is an ASCII digit, then 
that digit must begin another line reference, e.g. 

GOSUB 10,20 
DELETE 2-40 

(A digit should not follow a colon). 

3. The tokens in Note 1 above occur only as such (hence, the program must not contain graphic 
characters in string constants or REM's. 

(Actually, Note 1 is not quite true - this is why statements in the form DELETE -20 or IF(X)20 
are overlooked). 


The mode of operation of each section of the EDTASM source code is explained below. 
PROCESS LINE POINTERS AND LINE NUMBER 


th” fo^r reJairs^^the “Lack®) ” f*"** 66H to be better than 6CCI 

tne Torwr repairs the stack). If the end is not yet reached, then it niar*»c m, 

processed in the pointers in case an error message is to be generated. 


since 

being 


SEEK TOKENS IN LINE 


Jrio’r^sectioThLr^^Le Of "tL ?LeLLn tt/raZelrenciL^Ld^^^^ 


SEEK LINE REF. AFTER TOKEN 


This returns to the 
followed by a digit. 


previous section if a token (or conina or dash as per (2) above). 


is not 


VALIDATE LINE REFS. 


IxiLs“*®LTt ’’thVn"!? rMno™’'®''* L’"® then to check that it 

(it is 1ED9 - ’Ed^)" generated, since I don't know the entry point for UL ERROR. 


00100 

00110 

00120 

00130 

00140 

4047 00150 

4047 2AA440 00160 

404A D7 00170 

404B CA6600 00180 

404E 23 00190 

404F 4E 00200 

4050 23 00210 

4051 46 00220 


4052 ED43A240 00230 


;#BASIC LINE REFERENCE VALIDATION ROUTINE 
;!|tKEN SHILL I TO DECEMBER 1980 


?PROCESS LINE POINTERS AND 



ORB 

4047H 

VALID 

LD 

HL,(40A4H) 

NEXLIN 

RST 

lOH 


JP 

Z . 66H 


INC 

HL 


LD 

C,(HL) 


INC 

HL 


LD 

B, (HL) 


LD 

(40A2H),BC 


LINE NUMBER 

;UNUSED RESERVED MEM 
;<HL)=START BASIC 
;(HL)=A=MSB LINE PTR 
;RESET AT END 
;(HL)=LSB LINE PTR 

;(HL)=MSB LINE NO. 
;BC=LINE NUMBER 
; IN CASE OF ERROR 



MICRO-80 PRODUCTS 


DONTBEHELD BACK BY AN 
ANTIQUATED DISK OPERATING SYSTEM 

MOVE UPTO 

NEWDOS80 $14gincl.p&p 

NEWDOS 80 is a completely new DOS for the TRS-80 
SYSTEM 80. It is well-documented, bug free and 
increases the power of your system many times over. It 
is upward compatible with TRSDOS AND NEWDOS (ie 
TRSDOS and NEWDOS-*- programs will run on 
NEWDOS 80 but the reverse is not necessarily so). 

These are just a few of the many new features offered 
by NEWDOS 80. 

* New BASIC commands that support variable record 
lengths up to 4095 bytes long. 

* Mix or match disk drives. Supports any track count 
from 18 to 96. Use 35, 40, 77 or 80 track 514 inch 
mini disk drives, 8 inch disk drives OR ANY COM¬ 
BINATION. 

* An optional security boot-up for BASIC or machine 
code application programs. User never sees "DOS- 
READY" or "READY" and is unable to "BREAK", 
clear screen or issue any direct BASIC statements, 
including "LIST". 

* New editing commands that allow program lines to 
be deleted from one location and moved to another 
or to allow the duplication of a program line with 
the deletion of the original. 

* Enhanced and improved RENUMBER that allows 
relocation of subroutines. 

* Create powerful chain command files which will 
control the operation of your system. 

* Device handling for routing to display and printer 
simultaneously. 

* MINIDOS — striking the D, F and G keys simul¬ 
taneously calls up a MINIDOS which allows you to 
perform many of the DOS commands without dis¬ 
turbing the resident program. 

* Includes Superzap 3.0 which enables you to display/ 
print/modify any byte in memory or on disk. 

* Also includes the following utilities: 

— Disk Editor/Assembler 

— Disassembler (Z80 machine code) 

— LM offset — allows transfers of any system tape 
to Disk file — automatically relocated. 

— LEVEL I — Lets you convert your computer back 
to Level 1. 

— LVIDKSL — Saves and loads Level 1 programs to 
disk. 

— DIRCHECK — Tests disk directories for errors 
and lists them. 

— ASPOOL — An automatic spooler which routes a 
disk file to the printer whilst the computer con¬ 
tinues to operate on other programs. 

— LCDVR — a lower case drives which display lower 
case on the screen if you have fitted a simple lower 
case modification. 


DISKDRIVE USERS 
ELIMINATE CRC ERRORS 
AND 

TRACK LOCKED OUT MESSAGES 
FIT A PERCOM DATA SEPARATOR 
$37.00 plus $1.20 p&p. 

When Tandy designed the TRS-80 expansion interface, 
they did not include a data separator in the disk- 
controller circuitry, despite the I.C. manufacturer's 
recommendations to do so. The result is that many 
disk drive owners suffer a lot of Disk 1/0 errors. The 
answer is a data separator. This unit fits inside your 
expansion interface. It is supplied with full instructions 
and is a must for the serious disk user. 


MPI DISKDRIVES 

HIGHER PERFORMANCE - LOWER PRICE 
MPI is the second largest manufacturer of disk drives in 
the world. MPI drives use the same form of head 
control as 8" drives and consequently, they have the 
fastest track-to-track access time available — 5msec! All 
MPI drives are capable of single or double-density 
operation. Double-density operation requires the instal¬ 
lation of a PERCOM doubler board in the expansion 
interface. 

As well as single head drives, MPI also makes dual¬ 
head drives. A dual-head drive is almost as versatile as 
two single-head drives but is much cheaper. 

Our MPI drives are supplied bare or in a metal cabinet 
— set up to operate with your TRS-80 or SYSTEM 80. 
All drives are sold with a 90 day warranty and service is 
available through MICRO-80 PRODUCTS. 

MPI B51 40 Track Single Head Drive.only $349 

MPI B52 40 Track Double Head Drive.only $449 

Prices are for bare drives and include p&p. Add $10.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. 40 track drives are entirely compa¬ 
tible with 35 track drives. A 40 track DOS such as 
NEWDOS 80 is necessary to utilise the extra 5 tracks. 


OVER 800 KILOBYTES ON ONE DISKETTE! 
WITH MPI 80 TRACK DRIVES 
MPI 80 track drives are now available. The B91 80 
track single-head drive stores 204 Kilobytes of for¬ 
matted data on one side of a 514 inch diskette in single¬ 
density mode. In double-density mode it stores 408 
Kilobytes and loads/saves data twice as quickly. 

The B92 80 track dual-head drive stores 204 Kilobytes 
of formatted data on EACH side of a 514 inch diskette 
in single-density mode. That's 408 Kilobytes per 
diskette. In double-density mode, the B92 stores a 
mammoth 408 Kilobytes per side or 816 Kilobytes of 
formatted data per diskette. With two B92's and a 
PERCOM double, you could have over 1.6 Megabytes 
of on line storage for your TRS-80 for less than $1500!! 

MPI B91 80 Track Single Head Drive.only $499 

MPI B92 80 Track Dual Head Drive.only $619 

Prices are for bare drives and include p&p. Add $10.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. Note: 80 track drives will not read 
diskettes written on a 35 or 40 track drive, if drives 
with different track counts are to be operated on the 
same system, NEWDOS 80 must be used. 


CARE FOR YOUR DISK DRIVES? 

THEN USE 

3M's DISK DRIVE HEAD CLEANING DISKETTES 
$30.20 incl. p&p. 

Disk drives are expensive and so are diskettes. As with 
any magnetic recording device, a disk drive works 
better and lasts longer if the head is cleaned regularly. 
In the past, the problem has been, how do you clean 
the head without pulling the mechanism apart and run¬ 
ning the risk of damaging delicate parts. 3M's have 
come to our rescue with SCOTCH BRAND, non¬ 
abrasive, head cleaning diskettes which thoroughly 
clean the head in seconds. The cleaning action is less 
abrasive than an ordinary diskette and no residue is 
left behind. Each kit contains: 

-- 2 head cleaning diskettes 

— 1 bottle of cleaning fluid 

— 1 bottle dispenser cap 


PLEASE USE omm ¥Om ON PAGE 36 
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USE TANDY PERIPHERALS ON YOUR SYSTEM-BO 
VIA 

SYSPAND-80 - $97.50 incl. p&p 
The SYSTEM-80 hardware is not compatible with the 
TRS-80 in two important areas. The printer port is 
addressed differently and the expansion bus is entirely 
different. This means that SYSTEM-80 owners are 
denied the wealth of economical, high performance 
peripherals which have been developed for the TRS-80. 
Until now, that is. MICRO-80 has developed the 
SYSPAND-80 adaptor to overcome this problem. A 
completely self-contained unit in a small cabinet which 
matches the colour scheme of your computer, it con¬ 
nects to the 50-way expansion part on the rear of your 
SYSTEM 80 and generates the FULL Tandy 40 way 
bus as well as providing a Centronics parallel printer 
port. SYSPAND-80 enables you to run an Exatron 
Stringy Floppy from your SYSTEM 80, or an LNW 
Research expansion interface or any other desirable 
peripherals designed to interface to the TRS-80 expan¬ 
sion port. Make your SYSTEM 80 hardware compatible 
with the TRS-80 via SYSPAND-80. 


PROGRAMS BY MICROSOFT 

EDITOR ASSEMBLER PLUS {L2/16K) 

$37.50+ $1.20 p&p 

A much improved editor-assembler and debug/monitor 
for L2/16K TRS-80 or SYSTEM 80. Assembles directly 
into memory, supports macros and conditional assem¬ 
bly, includes new commands-substitute, move, copy 
and extend. 


Loads on top of Level 11 BASIC and gives advanced 
graphics, automatic renumbering, single stroke instruc¬ 
tions (shift-key entries) keyboard debounce, suitable 
for L2/16l< and up (Not Disk BASIC) 

ADVENTURE ON DISK $35.05 plus $1.20 p&p 
This is the original ADVENTURE game adapted for 
the TRS-80. The game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the level of 
Grand Master. Until you gain skill, there are whole 
areas of the cave that you cannot enter. (Requires 32K 
One Disk) 

BASIC COMPILER $208 plus ^.00 p&p 

New improved version, the Basic Compiler converts 
Disk BASIC programs to machine code, automatically. 
A compiled program runs, on average, 3-10 times faster 
than the original BASIC program and is much more 
difficult to pirate. 


UPGRADE TO UK 

FOR OML¥ $30.00!! 

MICRO-80's 16K MEMORY EXPANSION KIT 
HAS BEEN REDUCED IN PRICE EVEN MORE 

Larger volume means we buy better and we pass the 
savings on to you. These are our proven, prime, branded 
200 ns (yes, 200 nanosecond) chips. You will pay 
much more elsewhere for slow, 350 ns. chips. Ours are 
guaranteed for 12 months. A pair of DIP shunts is also 
required to upgrade the CPU memory in the TRS-80 - 
these cost an additional $4.00. All kits come complete 
with full, step-by-step instructions which include 
labelled photographs. No soldering is required. You do 
not have to be an experienced electronic technician to 
instal them. 


DISK DRIVE CABLES 
SUITABLE FOR ANY DISK DRIVES 

DC-2 2 Drive Connector Cable.$39 incl. p&p 

DC-4 4 Drive Connector Cable.$49 incl. p&p 


DOUBLE THE SPEED AND CAPACITY 
OF YOUR DISK DRIVES 
PERCOM DOUBLER ONLY $220 
plus $2.00 p&p 

Installing a Doubler is like buying another set of disk 
drives, only much cheaper!! The doubler works with 
most modern disk drives including:- MPI, Micropolis, 
Pertec, TEAC (as supplied by Tandy). The doubler 
installs in the TRS-80 expansion interface, the System- 
80 expansion interface and the LNW Research expan¬ 
sion interface in a few minutes without any soldering, 
cutting of tracks, etc. It comes complete with its own 
TRSDOS compatible double density operating system. 


DOimE-ZAP II - DOUBLE DENSITY PATCH 
FORNEWDOS80 

s. ^^1s«^^3.00 plus $1.00 p&p 

It'''Y^ ar^^^^a MSi()^OS 80, then you also need 
DOUfel.E-Z^^M^ dl'&tote. This program upgrades 
your NEV¥QO^€^^^ubfesdensity with ADR (auto¬ 
matic densitK!;;ec^^^^)jLXtains all the familiar 
features, includil^tTO^j^^ tb\mix and match 
track counts on th^'^same^^fi^n addition, it gives 
NEWDOS 80 the abilit^sto m^^^^jesS«jthe same 
cable, automatically. If ybu pl^^^i^gleN^nsity 
diskette in drive 0, say and ackjob^^^sity disk^e 
in drive 1, Double-Zapll will rec^Hke this and rea^K 
write to drive 0 in single density vvhlto at the same 
time it reads/writes to drive 1 in double derHiJy! 


FLOPPY DOCTOR AND MEMORY DIAGNOSTIC 
(by MICRO CLINIC) $29.05 plus 50c. p&p 
Two machine language programs on a diskette together 
with manual which thoroughly test your disk drives 
and memory. There are 19 possible error messages in 
the disk drive test and their likely causes are explained 
in the manual. Each pass of the memory tests checks 
every address in RAM 520 times, including the space 
normally occupied by the diagnostic program itself. 
When an error occurs the address, expected data, and 
actual data are printed out together with a detailed 
error analysis showing the failing bit or bits, the corres¬ 
ponding IC's and their location. This is the most 
thorough test routine available for TRS-80 disk users. 


BOOKS 

LEVEL II ROM REFERENCE MANUAL 
^4.95+ $1.20 p&p 

Over 70 pages packed full of useful information and 
sample programs. Applies to both TRS-80 and SYSTEM 
80. 

TRS-80 DISK AND OTHER MYSTERIES 
$24.95+ $1.20 p&p 

The hottest selling TRS-80 book in the U.S.A. Disk file 
structures revealed, DOS's compared and explained, 
how to recover lost files, how to rebuild crashed 
directories — this is a must for the serious Disk user 
and is a perfect companion to any of the NEWDOS's. 

LEARNING LEVEL II 
$16.95+ $1.20 p&p 

Written by Daniel Lien, the author of the TRS-80 
Level I Handbook, this book teaches you, step-by-step, 
how to get the most from your Level II machine. 
Invaluable supplement to either the TRS-80 Level II 
Manual or the System-80 Manuals. 












for $49.00 


A choice of upper and lower case display is easier to read 
gives greater versatility. 

The Micro-80 lower case modification gives you this facility, 
plus the symbols for the 4 playing-card suits for $49 00 +’ 

$2.00 p. & p. 

The Micro-80 modification features true below-the-line 
descenders and a block cursor. 

Each kit comes with comprehensive fitting instructions 
and two universal lower-case drive routines on cassette to 
enable you to display lower case in BASIC programs. 

The driver routines are self-relocating, self-protecting and 
will co-reside with other machine language programs such 
as Keyboard-debounce, serial interface driver programs etc. 


■ ^^^plus $2.00 p & p 

Both programs give your TRS-8d"' Model I or System 80’"’ 
an optional typewriter capability, i.e. shift for upper case 

The second programme also includes Keyboard-debounce 
and a flashing cursor. 

You fit it. Or we can. 

Fitting the modification requires soldering inside the 
computer. This should only be carried out by an experienced 
hobbyist or technician. 

If you are at all dubious, a fitting service is available in all 
capital cities for only $20.00. 

A list of installers is included with each kit. 


Save $120 ROW 

ADD A DISK DRIVE TO YOUR TRS-80"MODEL III 
FOR ONLY $875.00 OR ADD TWO FOR ONLY $1199. 



The Micro-80 disk drive upgrade for the TRS-80’"’Model III 
contains the following high quality components: 

1 or 2 MPI 40-track single head disk drives, 1 VR Data 
double-density disk controller board and 1 dual drive power 
supply plus all the necessary mounting hardware, cables and 
comprehensive fitting instructions, which can be carried out 
with a minimum of fuss by any average computer owner. 
Fitting service isavailable for $25.00 in most capital cities. 


Daisy Wheel Typewriter/Printer 

MICRO-80 has converted the new OLIVETTI ET-I21 DAISY WHEEL typewriter 
to work with the TRS-80 and SYSTEM 80 or any other microcomputer 
with a Centronics parallel port (RS 232 serial interface available 
shortly). The ET-121 typewriter is renowned for its high quality, 
fast speed (17 c.p.s.), quietness and reliability. MICRO-80 is 
renowned for its knowledge of the TRS-80/SYSTEM 80 and its sensible 
pricing policy. Together, we have produced a dual-purpose machine:- 
an attractive, modern, correcting typewriter which doubles as a 
correspondence quality Daisy-wheel printer when used with your 
micro-computer. 

How good is it? - This part of our advertisement was typeset using 
an ET-121 driven by a TRS-80. Write and ask for full details. 


ONLY $2049 INC. S.T. 





1.4 MEGABYTES ON LINE + 48K RAM 

for >3800 incL Sales Tax 



MICRO-80’s 

MODEL 380 + 

MICMO-8# has equipped the TRS-80 with two high reliability dual-head 80 track mini¬ 
floppy disk drives made by MPI, one of America’s leading mini-disk drive manufacturers. 

This turns the mild-mannered Model 3 into a powerhouse able to handle the most dif¬ 
ficult business programs. The TRS-80 is one of the best-supported microcomputers in the 
world. MICRO-80 has been supporting the TRS-80 in Australia for 18 months and is one 
of Australia’s leading dealers in MPI disk drives. 

2.8 MESABWES FOR ^53§§ incL Sales Tax 

If you need even more file space you can add MICRO-80’s external dual-drive cabinet 
enclosing two more dual-head 80 track drives for an additional ^1500. 




COMPUTER PRICES 


MODEL 340 

2 40 TRACK SINGLE HEAD DRIVES GIVING 

350K FORMATTED STORAGE, 48K RAM 

MODEL 340 + 

2 40 TRACK DUAL-HEAD DRIVES GIVING 

^2990 INCL. SALES TAX 

700K FORMATTED STORAGE, 48K RAM 

MODEL 380 

2 80 TRACK SINGLE HEAD DRIVES GIVING 

700K FORMATTED STORAGE, 48K RAM 

^3350 INCL, sales tax 

^3350 INCL, SALES TAX 

MODEL 380 + 

2 80 TRACK DUAL-HEAD DRIVES GIVING 

1.4 MEGABYTE FORMATTED STORAGE, 48K RAM 

^3800 INCL SALES TAX 

350K SYSTEM 

MODEL 340, EPSON MX-80 PRINTER 

NEWDOS 80 DISK OPERATING SYSTEM 

^4070 INCL SALES TAX 

TOOK SYSTEM (40 Track) 

MODEL 340 -r, EPSON MX-80 PRINTER 


NEWDOS 80 DISK OPERATING SYSTEM 

^4429 INCL SALES TAX 

TOOK SYSTEM (80 Track) 

MODEL 380, EPSON MX-80 PRINTER 


NEWDOS 80 DISK OPERATING SYSTEM 

^4429 INCL SALES TAX 

1.4 MEGABYTE SYSTEM 

MODEL 380 + , EPSON MX-80 PRINTER 

NEWDOS 80 OPERATING SYSTEM 

^4880 INCL SALES TAX 

2.8 MEGABYTE SYSTEM 

MODEL 380 + , DUAL EXTERNAL DRIVES, 

MX-80 PRINTER, NEWDOS 80 OPERATING SYSTEM 

^6380 INCL. SALES TAX 


★ 


EXATRON STRINGY FLOPPY - $372.50 mci. p&p 

All Exatron Stringy Floppies sold by MICRO-80 include the special chained version of 
HOUSEHOLD ACCOUNTS, developed by Charlie Bartlett. When used on the ESF, this pro¬ 
gram is powerful enough to perform many of the accounting functions in a small 
business. Remember, the ESF comes complete with a comprehensive manual, a 2 way 
bus-extender cable, its own power supply and 10 wafers of mixed length. One wafer 
contains the Data Input/Output program and another the HOUSEHOLD ACCOUNTS 
program. 

CAN*T MAKE UP ¥OUR MIND ABOUT THE ESF? 

Then send in $5.00 for a copy of the manual. We will refund your $5.00 IN FULL when you 
purchase an ESF, 



All prices subject to change without notice. Prices are F.O.B. Adelaide. All computers and systems carry MICRO-80’s 

90-day Warranty covering parts and labour. 
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SOFTWARE BY AUSTRALIAN AUTHORS 

All our software Is suifoble for either the SYSTEM 80 or the TRS-80 


FTWARE FROM MICRO-BO PRODUCTS I BMON by Edwin Paay 


$19.95 plus 50c. p&p 


MICROMANAGEMENT 
STOCK RECORDING SYSTEM (L2/16K) 

Cassette version.$29.95 + $1.00 p&p 

Stringy Floppy version.$33.95 + $1.00 p&p 

This system has been in use for 9 months in a number 
of small retail businesses in Adelaide. It is therefore 
thoroughly debugged and has been tailor made to suit 
the requirements of a small business. MICROMANAGE¬ 
MENT SRC enables you to monitor the current stock 
level and reorder levels of 500 different stock items per 
tape or wafer. It includes the following features: — 

— Add new items to inventory 

— Delete discontinued items from inventory 

— List complete file 

— Search for any stock number 

— Save data to cassette or wafer 

— Load data from cassette or wafer 

— Adjusts stock levels from sales results and receipt 
of goods 

— List all items requiring reordering 

We can thoroughly recommend this program for the 
small business with a L2/16K computer. 


SCOTCH BRAND COMPUTING CASSETTES 

Super-quality personal computing cassettes. 

C-IOpackoflO.$26.00 inch p&p 

C-30 pack of 10.$28.00 inch p&p 


UTILITIES 

S-KEY by Edwin Paay $15.95 plus 50c. p&p 

S-KEY is a complete keyboard driver routine for the 
TRS-80 and becomes part of the Level II basic inter¬ 
preter. With S-KEY loaded the user will have many 
new features not available with the standard machine. 
S-KEY features: 

* S-KEY provides an auto-repeat for all the keys on 
the keyboard. If any key is held down longer than 
about half a second, the key will repeat until it is 
released. 

* Graphic symbols can be typed direct from the key¬ 
board, this includes all 64 graphic symbols available 
from the TRS-80/SYSTEM 80. 

* S-KEY allows text, BASIC commands and/or 
graphics to be defined to shifted keys. This makes 
programming much easier as whole commands and 
statements can be recalled by typing shift and a 
letter key. 

* Because S-KEY allows graphics to be typed directly 
from the keyboard, animation and fast graphics are 
easily implemented by typing the appropriate 
graphics symbols directly into PRINT statements. 

* S-KEY allows the user to LIST a program with 
PRINT statements containing graphics, properly. 
S-KEY does this by intercepting the LIST routine 
when necessary. 

* S-KEY allows the user to list an updated list of the 
shift key entries to the video display or line printer. 

* S-KEY can be disabled and enabled when required. 
This allows other routines which take control of the 
keyboard to run with S-KEY as well. 

Each cassette has TRS-80, DISK and SYSTEM 80 
versions and comes with comprehensive documentation. 


L2/1648K 

Our own personnel refuse to write BASIC without first 
loading this amazing machine language utility program 
into high memory! BMON Renumbers; Displays BASIC 
programs on the screen while they are still loading; tells 
you the memory locations of the program just loaded; 
lets you stop a load part-way through; merges two 
programs, with automatic renumbering of the second 
so as to prevent any clashes of line numbers; recovers 
your program even though you did type NEW: makes 
one program invisible while you work on a second 
(saves hours of cassette time!); lists all the variables 
used in the program; makes SYSTEM tapes; lets you 
Edit memory directly ... the list goes on and on. 
Cassette comes with 16K, 32K and 48K versions, ready 
to load. Can anyone afford NOT to have BMON? 


EDUCATIONAL 

RPN CALCULATOR (L2/16K & 32K) 

$14.95$ 50c. p&p 

Give your computer the power of a $650 reverse polish 
notation calculator with 45 functions and selectable 
accuracy of 8 or 16 digits. The main stack and registers 
are continuously displayed whilst the menu is always 
instantly accessible without disturbing any calculations 
or register values. The cassette comes with both the 
16K and 32K versions, the latter giving you the addi¬ 
tional power of a programmable calculator. Comes 
with a very comprehensive 15 page manual, which 
includes instructions to load and modify the 32K pro¬ 
grammable version to run in 16K. Whether for business 
or pleasure, this package will prove invaluable, and turn 
you '80 into a very powerful instrument. 



Now you can play Monopoly on your micro. The old 
favourite board game has moved into the electronic era. 
This computer version displays the board on the screen, 
obeys all the rules and, best of all, the banker does not 
make mistakes with your change! 

CONCENTRATION (L2/16K) $8.95 + 60c p&p 

Another application of supergraphics. There are 28 
"cards" displayed on the screen, face down. Players 
take it in turn to turn them over with the object of 
finding matching pairs. There are 40 different patterns 
which are chosen at random, so the game is full of end¬ 
less variety. This is of particular value in helping young 
children to learn the art of concentrating and, at the 
same time, to introduce them to the computer. 

METEOR AND TORPEDO ALLEY (L2/16K) 

$10.95 + 60c p&p 

Those who frequent games arcades will recognize these 
two electronic games. In METEOR you must destroy 
the enemy space ships before they see you. In its most 
difficult mode, the odds are a thumping 238 to 1 
against you being successful. In torpedo alley you must 
sink the enemy ships without hitting your own supply 
ship. Both games include sound effects and are remark¬ 
ably accurate reproductions of the arcade games. 
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AUSTRALIAN SOFTWARE (Cont.) 

GAMES 

SHEEPDOG (L2/16K) $8.95 + 60cp&p 

Ever wondered how a sheepdog manages to drive all 
those awkward sheep into a pen? Well, here is your 
chance to find out just how difficult it is and have a 
lot of fun at the same time. You control the sheepdog, 
the computer controls the sheep! As if that isn't 
enough, look out for the dingoes lurking in the bush! 

U BOAT $8.95 +60c p&p 

Real time simulation at its best! Comes with working 
sonar-screen and periscope, a full rack of torpedoes, 
plenty of targets, working fuel and battery meters, 
helpful Mothership for high-seas reprovisioning and 
even has emergency radio for that terrible moment 
when the depth charges put your crew at risk. Requires 
Level II/16K. 


Much improved version of this arcade favourite with 
redesigned laser and cannon blasts, high-speed cannon, 
50 roving drone targets, 10 motherships and heaps of 
fun for all. Level II with 4K and 16K versions on this 
cassette. 


Pit your skills of mini-golf against the computer. Choose 
the level of difficulty, the number of holes and whether 
you want to play straight mini golf or crazy golf. Com¬ 
plete with hazards, water traps, bunkers and trees. 
Great fun for kids of all ages. 

nriR/fi Airti m/B 


Pit your skill at dominoes against the computer, which 
provides a tireless opponent. Another application of 
supergraphics from the stable of Charlie Bartlett. 
Dominoes are shown approximately life size in full 
detail (except for colour!). The monitor screen is a 
window which you can move from one end of the 
string of dominoes to the other. Best of all, you don't 
lose any pieces between games! 

KID'S STUFF (formerly MMM-1) $8.95 +60c p&p 
Three games on one cassette from that master of TRS- 
80 graphics, Charlie Bartlett. Includes INDY 500, an 
exciting road race that gets faster and faster the longer 
you play, SUBHUNT in which your warship blows up 
unfortunate little submarines all over the place, and 
KNIEVEL (as in motorcycle, ramp and buses). 


OTHER PROGRAMS 

INFINITE BASIC BY RACET {32K/1 DISK) 

$49.95 + 50c. p&p 

Full matrix functions - 30 BASIC commands; 50 more 
STRING functions as BASIC commands. 

GSF/L2/48K $24.95 + 50c. p&p 

18 machine language routines including RACET sorts. 

BUSINESS ADDRESS AND INFORMATION SYSTEM 
(48K/DISK) ^4.95 + 50c. p&p 

Allows you to store addresses and information about 
businesses, edit them and print them out. 

HISPED (L216,32 or 48K) $29.95 

This machine language program allows you to SAVE 
and LOAD programs and data to tape at speeds up to 
2000 band (4 times normal) using a standard cassette 
recorder. A switch must be installed to remove the 
XRX III loading board, if fitted. 



Give your TRS-80 or SYSTEM 80 a lower case display 
with proper descenders and a block cursor (similar to 
the TRS-80 Model III). Also includes symbols for the 
four suits of cards. Includes full fitting instructions, all 
necessary components and a special machine language 
driver program to enable lower case in BASIC. The 
modification is similar to the Tandy model and does 
not work with Electric Pencil without further modifi¬ 
cations. 

These kits require disassembly of your computer and 
some soldering. They should only be installed by 
someone who has experience in soldering integrated 
circuits, using a low power, properly earthed soldering 
iron. If you do not have the necessary experience/ 
equipment, we will install the modification for you for 
$20 plus freight in both directions. Make sure you 
arrange the installation with us first, before despatch¬ 
ing your computer, so that we can assure you of a 
rapid turn-around. We are also arranging to have 
installers in each State. See elsewhere in this issue for 
their names and addresses. 

PRICES 

Cat No. 

HD-020 Lower case mod kit for TRS-80 

$49.00 plus $2.00 p&p 
HD-021 Lower case mod kit for SYSTEM-80 

$49.00 plus $2.00 p&p 


EPSON MX-80 PRINTER 
ONLY ^$949 Inc. Cable for TRS-80 and p&p 
(*Printer only — $940 incl. p&p) 

The EPSON MX-80 printer is compact, quiet, has 
features unheard of only 2-3 years ago in a printer at 
any price and, above all, is ultra-reliable. All available 
print modes may be selected under software control. 
Features include: 

— high quality 9x9 dot-matrix character formation 

— 3 character densities 

. 80 characters per line at 10 chars/inch 
.132 characters per line at 16.5 chars/inch 
. 40 characters per line at 5 chars/inch 

— 2 line spacings 

. 6 lines per inch 8 lines per inch 

— 80 characters per second print speed 

— bi-directional printing 

— logical seeking of shortest path for printing 

— lower case with descenders 

— TRS-80 graphics characters built in 

— standard Centronics printer port 

The bi-directional printing coupled with the logical 
seeking of the shortest print path (which means that 
the print head will commence printing the next line 
from the end which requires the least travel, thereby 
minimising unutilised time) gives this printer a much 
higher throughput rate than many other printers 
quoting print speeds of 120 c.p.s. or even higher. 


GREEN SCREEN SIMULATOR 

$9.50 incl. p&p 

The GREEN SCREEN SIMULATOR is made from a 
deep green perspex, cut to fit your monitor. It improves 
contrast and is much more restful to the eyes than the 
normal grey and white image. 

All editorial staff of MICRO-80 are now using GREEN 
SCREEN SIMULATORS on their own monitors. 

Please make sure to specify whether you have an old 
(squarish) or new (rounded) style monitor when order¬ 
ing. Not available for Dick Smith monitors. 
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00240 

pSEEK 

TOKENS IN 

LINE 


4056 

D7 

00250 

NEXCHR 

RST 

lOH 

pA=NEXT BYTE, SET FLAGS 

4057 

FEOO 

00260 

KEEPON 

CP 

0 

pEOL REACHED? 

4059 

281E 

00270 


JR 

Z,NEXT 

pTO NEXT LINE IF EOL 

405B 

EB 

00280 


EX 

DE,HL 

pSAVE HL 

405C 

217C40 

00290 


LD 

HL,TOKENS 

?HL=TOKENS ORG 

405F 

010700 

00300 


LD 

BC,7 

?BC=NO. OF TOKENS 

4062 

EDBl 

00310 


CPIR 


pSET Z IF A IS TOKEN 

4064 

EB 

00320 


EX 

DE,HL 

pRESTORE HL 

4065 

20EF 

00330 


JR 

NZ,NEXCHR 

pKEEP SEEKING TOKENS 



00340 

pSEEK 

LINE REF 

AFTER TOKEN 


4067 

D7 

00350 

FOUND 

RST 

lOH 

pA=NEXBYT,SET C IF NUMRIC 

4068 

30ED 

00360 


JR 

NC,KEEPON 

pNO MORE LINE REFS 



00370 

pVALIDATE LINE 

REFS 


406A 

CD5A1E 

00380 


CALL 

1E5AH 

pDE=LINE NO.,(HL)=DELIMTR 

406D 

E5 

00390 


PUSH 

HL 

pSAVE HL 

406E 

CD2C1B 

00400 


CALL 

1B2CH 

pSET C IF LINE EXISTS 

4071 

El 

00410 


POP 

HL 

?RESTORE HL 

4072 

D24A1E 

00420 


JP 

NC,1E4AH 

pFC ERROR ROUTINE 

4075 

AF 

00430 


XOR 

A 

? A=0 

4076 

BE 

00440 


CP 

(HL) 

pIS DELIMITER EOL? 

4077 

20EE 

00450 


JR 

NZ,FOUND 

pSEEK FURTHER REFS 

4079 

23 

00460 

NEXT 

INC 

HL 

pSKIP EOL 

407A 

18CE 

00470 


JR 

NEXLIN 

pSEARCH NEXT LINE 



00480 

pDATA 

- COMPRESSION TOKENS 


407C 

918D 

00490 

TOKENS 

DEFW 

SD91H 

pGOTO, GOSUB 

407E 

95CA 

00500 


DEFW 

0CA95H 

pTHEN, ELSE 

4080 

8E9F 

00510 


DEFW 

9FSEH 

PRESUME, RUN 

4082 

B 6 

00520 


DEFB 

0B6H 

? DELETE 

4047 


00530 


END 

VALID 




00540 

pTHE ABOVE ROUTINE IS RELOCATABLE WITHOUT RE-ASSEMBLY. 



00550 

p N. B. 

IT MUST NOT BE USED WITH 

PROGRAMS THAT CONTAIN 



00560 

?GRAPHICS BYTES 

IN STRING CONSTANTS OR REMARKS. 



00570 

?IT OCCUPIES 59 

BYTES 



***** MULTIPLE REGRESSION ANALYSIS L2/16K by T.R, Jones ***** 

Multiple regression analysis is used to test the relationship between a dependent variable (Y) 
and a number of independent variables(XI,X2,X3.XN). 

This routine allows multiple regression analysis between the independent variable Y and two 
dependent variables XI and X2, in accordance with the model:- 

Y = A + BXl + CX2. 

The routine calculates the coefficients for the multiple regression equation, the mean values 
of XI, X2 and Y, the coefficient of multiple regression (an indication of closeness of fit, 
where 1 is perfect), and the percentage variation in Y due to XI, X2, and XI and X2 jointly. 
In addition, a residual table can be printed on conmiand and estimations of Y computed for entered 
values of XI and X2. 

The routine will accept up to 100 data sets, which are verified and can be edited following 
entry. ^ 


20 CLS;DEFINTI-NsDIMX(3,100),A< 6 ,3),R( 6 , 3 )!####■■ 
30 PRINTTAB(18)"MULTIPLE REGRESSION ANALYSIS": 

PRINTTAB(18)STRING* <28,45) 

40 PRINT:PRINT;PRINT:PRINTTAB(29)"MODEL":PRINT: 

PRINTTAB(23)"Y = A + BXl + CX2" 

50 PRINT3977,"TYPE <ENTER> TO CONTINUE ...." 5 :INPUTI* 

60 CLS:PRINTTAB(27)"ENTER DATA":PRINT:PRINT: 

PRINTTAB(13)"NUMBER OF DATA POINTS - MAXIMUM IS 100" 

70 PRINTTAB(28):INPUTND;IFND<20RND>100 

PRINTCHR*(27);CHR*(30);CHR*(29);CHR*(27):60T070 
80 PRINT;PRINT:F0RI=1T0ND: 

PRINT"X1(";I 5 ") =";;INPUTX(1,1): 

PRINTTAB(22)CHR*(27)"X2 <"5 1 5 "> ="S:INPUTX(2,1); 

PRINTTAB(44)CHR*(27)"Y(";I;") =";;INPUTX(3,1):NEXTI 
90 CLS:K=0;PRINTTAB(26)"DATA ENTERED";PRINT;F0RI=1T0ND;K=K+1; 
PRINT-Xl(";I;") =";X(1,I);TAB(22)"X2 ("5 15") =";X(2,I)5 
TAB<44)"Y<";Ip") =";X<3,I):IFK<lONEXTI 
ELSEPRINT3977,"TYPE <ENTER> TO CONTINUE 
INPUTI*:K=0;CLS;NEXTI 
100 PRINT8983,"EDIT DATA (Y/N)"p 
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110 I$=INKEY*s IFI^=" "THENl 10ELSEIFI$=" VTHEN120ELSEIFI$=“1M” 
THEIM140ELSE110 

120 CLS;INPUT"DATA POINT TO BE EDITED”sIs 

IFI>NDTHEN120ELSEPRINTTAB(4)"XI("si?"> =”?X(1.I)s 
TAB(24)"X2(”;I?") ="sX(2,I)s 
TAB(44)"Y(" 5 I;") =";X(3,I) 

130 PRINT-NEW XIC”;I;") ="ssINPUTX(1,I)s 

PRINTTAB(24)CHR$C27);"X2(”;I;") sINPUTX(2,1)5 
PRINTTAB(44)CHR$(27)p"Y(";1 5 ") ="? sINPUTX(3,1)5 G0T090 
140 CLSs PR I NTS)473, "COMPUTING , . „ . " 

150 F0RI = 1T065 F0RJ=1T03s A(I,J)=0s R(I,J)=0g NEXTJ,I 
160 F0RI = 1T0ND5 Ad, 1) =A (1, 1)+X (1, I) 5 A (1,2) =A (1,2)+X (2, I) s 
A(1,3)=A(1,3)+X(3,I)sNEXTI5 A(2,1)=A(1,1)/NDs 
A(2,2)=A(1,2)/NDsA(2,3)=A(l,3)/ND 
170 F0RI = 1T0 NDs A(3, 1) =A (3, 1)-J-(X (1, I) C2) s A (3, 2) =A (3,2)(X (2, I) I 
s A(3,3)=A(3,3)+(X(3,I)C2)sNEXTI 
180 F0RI=1T0ND5A(4,1)=A(4,1)+(X(1,I)fX(3,1)); 

A(4,2)=A(4,2) + (X(2, I):^X(3, I) ) s A (4, 3) =A (4,3)-^ (X (1, I) tX(2, I) ) 
NEXTI 

190 A(5,1)=A(3,1)-(A(1,1)C2/ND)sA(5,2)=A(3,2)-(A(1,2)12/ND)s 
A(5,3)=A(3,3)-(A(l,3) [:2/ND) 

200 A( 6 , 1)=A(4, i)-( (A(l, 1)|:A(1,3) )/ND) s 
A(6,2)=A(4,2)-((A(l,2)fA(l,3))/ND)s 
A(6,3)=A(4,3)-((A(l,i)«A(l,2))/ND) 

210 R(l, 1) = (A(6, 1) 1 : 2 )/(A (5, 3)® A (5, 1) ) s R (1,2) =SQR (R (1, 1) ) ; 
IFA(6,1)<0THENR(1,2)=-R(1,2) 

220 R(2,1)=(A(6,2)C2)/(A(5,3)*A(5,2))sR(2,2)=SQR(R(2,1))s 
IFA(6,2)<0THENR(2,2)=-R(2,2) 

230 R(3,1)=(A(6,3)12)/(A(5,1)«A(5,2))sR(3,2)=SQR(R(3,1))s 
IFA(6,3)<OTHENR(3,2)=-R(3,2) 

240 R(4,i)=(R(1,2)-(R(2,2)#R(3,2))) £2s 
R(4,1)=R(4,1)/((1-R(2,1))f(1-R(3,1)))g 
IFR(4,1)<0THENR(4,2)=0ELSER(4,2)=SQR(R(4,1)) 

250 R(5,1)=(R(2,1)-(R(2,2)*R(3,2)))C2g 
R(5,1)=R(5,1)/((i-R(l,1))t(l-R(3,1)))g 
IFR(5,1)<0THENR(5,2)=0ELSER(5,2)=SQR(R(5,1)) 

260 RS=R(2,1)+R(1,1)-(2fR(1,2)#8(2,2)#R(3,2))g 

RS=RS/(1-R(3,1))gIFRS >1THENRS=1g RM=1ELSERM=SQR(RS) 

270 C=(A(6,3)fA(6,1))-(A(5,1)$A(6,2))g 
C=C/ (A (6, 3) C2--(A(5,2) #A(5, 1) ) ) 

280 B=A(6,1)-(CSA(6,3))gB=B/A(5,1) 

290 D=A(2,3)-(BtA(2,1))-(C#A(2,2)) 

300 CLSgPRINT"THE EQUATION FOR THE. REGRESSION LINE IS s"gPRINT 
PRINT”YHAT = "p 

310 IFD<OPRINT"--" 5 ABS (D) p ELSEPRINTD? 

320 IFB<OPRINT"-"?ABS(B)p"X1"?ELSEPRINT;Bp"Xi"p 
330 IFC<OPRINT" p ABS (C) p " X2" p ELSEPRINT" -»-"?C5"X2"? 

340 PRINT;PRINT;PRINT"MEAN XI =";A(2,l)g 
PRINT"MEAN X2 ='‘pA(2,2)g 
PRINT"MEAN Y ="pA(2,3) 

350 PRINTSPRINT"COEFFICIENT OF MULTIPLE CORRELATION ="sRI1 
360 R1=R(1,1)f100gR2=R(2,1)#100gRS=RSfiOOsPRINTs 
PRINT" VARIATION IN Y DUE TO s XI ="p Rip 
PRINTTAB(24)"X2 ="?R2p“%"g 
PRINTTAB(19) "XI & X2 ="pRSs"7." 

370 PRINT3978,"PRINT RESIDUAL TABLE (Y/N)"p 

380 I$=INKEY$ gIFI$=""THEN380ELSEIFI$="Y"THEN390ELSEIFI«="N" 
THEN470ELSE380 
390 CLSgJ=0 

400 FORI = lTONDg YH=D+(BltX (1, I) ) + (C#X (2,1)) sRE=YH-X (3,1) 

410 IFJ=060SUB510 

420 PRINTUSING"##"pI? gPRINTTAB(5)p gPRINTUSINGP^pX(1,I)pX(2,Dp 
X(3, DpYHpRE 

430 J=J+lgIFJ>9THEN440ELSE450 

440 PRINT3977,"TYPE <ENTER> TO CONTINUE ..."pgINPUTI^gJ=OgCLS 
450 NEXTI 

460 RS=RS/100gSD=(l-RS)#A(5,3)gPRINTS 

PRINT"SUM OF SQUARES OF DEVIATION FROM REGRESSION ="pSD 
470 PRINT3978,"ESTIMATE VALUES OF Y (Y/N)"s 

480 I$=INKEY$:IFI$=""THEN4S0ELSEIFI$="Y"THEN490ELSEIFI"N" 
THEN460ELSE480 
490 CLS 

500 INPUT"Xl"pXAgPRINTTAB(21)CHR$(27)p:INPUT"X2"pXBs 

YH=D+(B#XA)+(C#XB)sPRINTTAB(42)CHR$(27)p"Y ="pYHsG0T0500 
510 CLSgPRINT"POINT"pTAB(ll)"XI"?TAB(22)"X2“pTAB(33)"Y"? 
TAB(43)"YHAT"?TAB(55)"RES"SPRINTgRETURN 
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***** ATOMIC TABLES - L2/16K by D. Balaic ***** 

As I read John S. Bone's article from the U.K., I realised how poor the Australian government's 
reaction to computers has been. Where America is already using computers in education wholesale 

from second grade upwards, only a few technical colleges have PETs or the such here. When I 

saw the possibilities of computers in teaching mathematics and sciences, I felt I simply had 
to write an educational program to demonstrate. So "Atomic Tables" was evolved. This program 
not only aims to teach, but also can act as a reference to students studying chemistry, for 
it shows not only the name, symbol and element atomic number, but also gives the group or series 
and accurately gives the electon shells of the said atom. As the movements of atoms in the 
different shells (or energy levels) is not always easily predictable, this program is of particular 
usefulness. It is also capable of telling either of name, number or symbol from any of these 
given. The program uses one large data array to find all three particulars of an atom. Once 
it finds them it prints those which are required by the user. When it completes one question 
display, it searches its data for the required element, during which time the user has to try 

to think of the element. If the user wants only to find the data, there will be a short wait 

before the answer is displayed. 


20 DIMD$(312) 

30 'ELEME^4T TABLES 

40 CLS:PRI^4T:i)24, "THE ELEMENTS" ;; PRINT389, “MAIN INDEX" ; s PRINT3192 
,"YOU MAY CHOOSE ANY OF THE FOLLOWINB;";sPRINT3330,"A -TO OBTAI 
N AN ELEMENT’S ATOMIC NO.";:PRINT3394,"B -TO OBTAIN AN ELEMENT’ 

S SYMBOL";SPRINT345S,"C -TO OBTAIN AN ATOMIC NO.’S ELEMENT"; 

50 PRINT3522,"D -TO OBTAIN AN ATOMIC NO.’S SYMBOL";;PRINT35S6, 
"E -TO OBTAIN A SYMBOL’S ATOMIC NO.";:PRINT3650,"F -TO OBTAIN 
A SYMBOL’S ELEMENT";;PRINT3714,"G -FOR A LIST OF ALL RELEVANT 
DATA ASSOCIATED WITH AN ELEMENT."; 

60 A$=INKEY$ sIFA$=""THEN60ELSEIFA$="A"THEN140ELSEIFA$="B"THEN90E 
LSEIFA$="C"THEN70ELSEIFA$="D"THEN190ELSEIFA$="E"THEN21OELSEIFA$=" 
F"THEN260ELSEIFA$="6"THEN310ELSE60 

70 CLSsPRINT3463,"PLEASE ENTER ATOMIC NO.";sINPUTA:GOSUB600!FORN 
=lT0A#3+2;READD$sNEXTsCLSsPRINT;i464,"THE ELEMENT FOR"A"IS "D$;;PR 
INT3979,"HIT ANY KEY TO CONTINUE";:RESTORE 
80 IFINKEY$=""THEN80ELSE30 

90 CLS s PRINT3466,“PLEASE ENTER ELEMENT";:INPUTF$:G0SUB600:FORN=1 
T0312;READD$(N);IFD$(N)=F$THEN120ELSENEXT 
100 GQSUB160 
110 G0T090 

120 CLSsN=N+lsREADD$(N);PRINT3465,"THE SYMBOL OF "F$" IS "D$<N): 
PRINT39795"HIT ANY KEY TO CONTINUE";:RESTORE 
130 IFINKEY$=""THEN130ELSE30 

140 CLS; PR I NT;i)465, " PLEASE ENTER ELEMENT " ; : I NPUTS$: G0SUB600: FORN= 
1T03125 READD$(N)sIFD$(N)=S$THEN170ELSENEXT;G0SUB160 
150 GOTO140 

160 CLS;RESTORE:PRINT8470,"SORRY, TRY AGAIN";sF0RJ=1T0870;NEXT;R 
ETURN 

170 CLS;PRINT3464,"THE ATOMIC NO. OF "S$" IS "D$<N-1);:PRINT3979 
,"HIT ANY KEY TO CONTINUE";:RESTORE 
ISO IFINKEY$=""THEN180ELSE30 

190 CLS s PRINT3466,"PLEASE ENTER ATOMIC NO,";:INPUTA:G0SUB600;FOR 
N=lT0A#3+3; READD$; NEXT; CLS; PRINT:i)469, "THE SYMBOL OF"A"IS "D$;;PRI 
NT3979,"HIT ANY KEY TO CONTINUE";;RESTORE 
200 IFINKEY$=""THEN200ELSE30 

210 CLS;PRINT3466,"PLEASE ENTER SYMBOL";sINPUTS$;G0SUB600;FORN=1 
T0312;READD$(N);IFD$(N)=S$THEN240ELSENEXT 
220 GOSUB160 
230 GQT0210 

240 CLS;PRINT;i)464, "THE ATOMIC NO. OF "S$" IS "D$ <N-2) ; ; PRINT3979 
,"HIT ANY KEY TO CONTINUE";=RESTORE 
250 IFINKEY$= " " THE.N250ELSE30 

260 CLS; PR I NT;i)466, " PLEASE ENTER SYMBOL " ; ; I NPUTS$; G0SUB600; FORN= 1 
T0312;READD$(N);IFD*(N)=S$THEN290ELSENEXT 
270 GOSUB160 
280 S0T0260 

290 CLS;PRINT3463,"THE ELEMENT FOR "S$" IS "D$(N-1);sPRINTa979," 
^HIT ANY KEY TO CONTINUE";;RESTORE 
300 IFINKEY$=""THEN300ELSE30 

310 CLS;PRINT;3452,"PLEASE ENTER EITHER ATOMIC NO,, SYMBOL OR ELE 
MENT";;INPUTX$;G0SUB600;IFVAL<X$)<>ON=VAL<X$);IFN>103THEN590ELSE3 
40ELSEJ=LEN < X$) 

320 F0RN=1T0312;READD$(N);IFD$<N)=X$THEN330ELSENEXT;RESTORE;GOTO 
310 

330 RESTORE;N=N/3;N=INT <N);IFJ<=2N=N-1 

340 FORNN=lTON*3+l;READD*(NN);NEXT;CLS:PRINT:37,"ATOMIC NO.;"N", 
ELEMENT; ";;READD*(NN);PRINTD*(NN)", SYMBOL: ";;NN=NN+1;READD*(NN 
);PRINTD* < NN)".";PRINT372,"NO. OF PROTONS;"N", ELECTRONS; "N"." 
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350 PRINT3670,N"P"? s G0SUB390 s PRINT3320,"GROUP s“;s PRINT3384,GN$ s s 
PRINT3604, ■■. -K="K"-= " ; s PRINT :35405 " „ -L='‘L "; s PRINT3476, " . -N=''M"- 
.SPRINT3412,".-N="P"-.2PRINT334S,".-0="Q"-.";;PRINT32845",-8= 
■■R"~. SPRINT3220, ".-0= O 5 s RESTORE 

360 PRINT3979, "HIT ANY KEY TO CONTINUE" ? s K=Os L=Og M=Oi: R=Og 8 = 0 ; Q =0 
370 IFI NKEYti= " " THEN370ELSE30 
380 DATA541,544, 

390 GN^="TRANSITIONAL ELEMENTS"?IFN=30RN=110RN=190RN=370RN=550RN 
=87GN*="I"ELSEIFN=40RN=120RN=200RN=3S0RN=560RN=88GN$="II"ELSEIFN= 
50RN=130RN=310RN=490RN=S1GN^="III"ELSEIFN=60RN=140RN=320RN=5O0RN= 
B2em= "IV" ELSE I FN=70RN= 150RN=330RN=510RN=83GN$= " V " 

400 IFN=80RN=160RN=340RN=520RN=S4GN$="VI"ELSEIFN=90RN=170RN=350R 
N=530RN=85GN$="VII"ELSEIFN=20RN=1OORN=1S0RN=360RN=540RN=540RN=86G 
N$="VIII OR O - NOBLE GASES"ELSEIFN=1GN$="HYDROGEN"sK= 0 -R= 0 ; 0=0 
410 IFN >=90GN$="ACTINIDE SERIES"ELSEIFN >=5SANDN< =71GN$="LANTHANI 
DE SERIES" 

420 IFN >=2K=2 s N=N-2ELSEK=N:G0T0480 

430 IFN >=SL= 8 ;N=N- 8 ELSEL=N s 60T0480 

440 IFN >=18M=18 s N=N“18ELSEM=N s G0T0480 

450 I FN >=32P=32 s N=N--32ELSEP=N s G0T0480 

460 IFN >=320=32;N=N-32ELSE0=N s G0T0480 

470 IFN >=18R=18:N=N-18ELSER=N 

480 N=K+L+M+P+Q+R sIFN=19M=M-1;P=1;G0T0580 

490 IFN >=20ANDN< =30M=M-2 s P=2 s G0T0580 

500 IFN=37P=P-lsQ=l!G0T05S0 

510 IFN=61P=P-1s 0=2;GOT0580 

520 IFN=62D=2sG0T0580 

530 IFN >=38ANDN< =62P=P-2 s 0=2:G0T0580 

540 IFN=69Q=Q-1g R=1? 60T05S0 

550 IFN=93Q=Q-1g R=2 g 60T0580 

560 IFN=94R=2gG0T0580 

570 IFN>=70ANDN<=940=0-2? R= 2 g G0T0580 

580 RETURN 

590 REM 

600 CLS:PRINT3472,"COMPILING DATA";g RETURN 

610 DATAl 5 , HYDROGEN, H, 2, HELIUM, HE, 3, LITHIUM, LI, 4, BERYLIUM, BE, 5, BO 
RON,B, 6 ,CARBON,C,7,NITROGEN,N, 8 ,OXYGEN,O,9,FLOURINE,F,10,NEON,NE, 
11,SODIUM,NA,12,MAGNESIUM,MG,13,ALUMINIUM,AL,14,SILICON,SI,15,PHO 
SPHORUS,P,16,SULPHUR,S,17,CHLORINE,CL,18,ARGON,A,19,POTASSIUM,K 
620 DATA20,CALCIUM,CA,21,SCANDIUM,SC,22,TITANIUM,TI,23,VANADIUM, 

V,24,CHROMIUM,CR,25,MANGANESE,MN,26,IRON,FE,27,COBALT,CO,28,NICKE 
L,NI,29,COPPER,CU,30,ZINC,ZN,31,GALLIUM,GA,32,GERMANIUM,GE,33,ARS 
ENIC,AS,34,SCLENIUM,SE,35,BROMINE,BR,36,KRYPTON,KR,37,RUBIDIUM,RB 
630 DATA3S,STRONTIUM,SR,39,YTTRIUM,Y,40,ZIRCONIUM,ZR,41,NIOBIUM, 

NB,42,MOLYBDENUM,MO,43,TECHNETIUM,TC,44,RUTHENIUM,RU,45,RHODIUM,R 
H,46,PALLADIUM,PD,47,SILVER,AG,48,INDIUM,IN,49,CADMIUM,CD,50,TIN, 
SN,51,ANTIMONY,SB,52,TELLURIUM,TE 

640 DATA53,IODINE,I,54,XENON,XE,55,CAESIUM,CS,56,BARIUM,BA,57,LA 
NTHANUM,LA,58,CERIUM,CE,59,PRASEODYMIUM,PR,60,NEODYMIUM,ND,61,PRO 
METHIUM,PM,62,SAMARIUM,SM,63,EUROPIUM,EU,64,GADOLINIUM,GD,65,TERB 
lUM,TB,66,DYSPROSIUM,DY,67,HOLMIUM,HO 

650 DATA68,ERBIUM,ER,69,THULIUM,TM,70,YTTERBIUM,YB,71,LUTETIUM,L 
U,72,HAFNIUM,HF,73,TANTALUM,TA,74,TUNGSTEN,W,75,RHENIUM,RE,76,OSM 
lUM,OS,77,IRIDIUM,IR,78,PLATINUM,PT,79,GOLD,AU,80,MERCURY,HG,81, T 
HALLIUM,TL,82,LEAD,PB,83,BISMUTH,BI 

660 DATA84,POLONIUM,PO,85,ASTATINE,AT,86,RADON,RN,87,FRANCIUM,FR 
,88,RADIUM,RA,89,ACTINIUM,AC,90,THORIUM,TH,91,PRotoACTINIUM,PA,92 
,URANIUM,U,93,NEPTUNIUM,NP,94,PLUTONIUM,PU,95,AMERICIUM,AM,96,CUR 
IUM,CM,97,BERKELIUM,BK,98,CALIFORNIUM,CF 

670 DATA99,EINSTEINIUM,ES,100,FERNIUM,FM,101,MENDELEVIUM,MV,102, 
NOBELIUM,NO,103,LAWRENCIUM,LW 


***** TEXT TYPER L2/16K by M.J. Leonard ***** 

FEATURES - 

* Standard keyboard gives lower-case with visual indication of sliifted 
upper-case. 

* Line justification or non-justification with non-justifying space 
provision. 

* Indentation setting, readily changeable. 

* Line change, line delete. 

* Word change, word delete. 

* Lines insert, word insert. 
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* 

Centering of text. 


* 

Review text. 


* 

Line counter. 


* 

Record to tape. 


* 

Load from tape. 


* 

'Packed' data displayed on 

reading and recording tape. 

* 

Print draft document with 

line numbers. 

* 

Print finished text. 


* 

Prints on A4 sheet or roll 

paper. 


This program was developed on a System 80. TRS-80 users should use the arrow keys as shown 
below: 


■ESC = t 
•CTRL' = I 
•TAB' = 

•BACKSPACE' = ^ 

This program processes text line by line with a maximum input at one time of 90 lines. 

Each line consists of 62 characters - indicated by a staff on the screen. Upon RUNning the 
program, selection of an indentation position is made and indicated on staff. After selection 
of 'justification' or 'non-justification' entry can proceed. 

If right-hand justification is selected, any line of characters finishing within 7 spaces of 
the end of the staff, will be justified. Upon ENTERing the line a string of "J"s will indicate 
the extra spaces being inserted to bring about justification. If the relationship between two 
or more words is to be maintained then CTRL must be used instead of the SPACE-BAR when inserting 
a space between these words. (Even with a line of 62 characters there are 3 spaces of justi¬ 
fication - this is important for later word correction). 

If change of indentation is required (for sub-paragraphing or tabulation) call up MENU and enter 
'Indent' for 'Choice'. This also allows change to and from line justification. 

To centre text for headlines etc., type material at beginning of staff and press ESC instead 
of ENTER. This will centre text and advance to next line input. 

To call up MENU 'Shift' and 'ESC keys are depressed. This then allows selection of the following:- 

1. PRINT DRAFT DOCUMENT 

Line 1920 in the program has been written for an Okidata 'Microline 80' printer and selects 
16.5 characters/inch, 105 characters to a line and 4 lines per inch. This spacing plus 
the printing of the line numbers allows easy corrections and additions to be made. Forty 
lines are printed on A4 paper before printing stops and a prompt is given to insert more 
paper. 

2. PRINT COMPLETED TEXT 

Again line 2010 sets the 'Microline 80' for 10 characters/inch, 64 characters to a line 
and 6 lines per inch. This gives clean clear final copy. When printing in this style prompt 
for new paper comes after 59 lines. (Text will be lost if all pages are not printed - for 
other printers, both these program lines will need changing). 


3. RECORD TO TAPE 

4. LOAD FROM TAPE 

Upon selecting these facilities, data is packed into groups of three lines, comnas and colons 
changed to graphic characters so as not to change formatting, and recording and loading 
shown on the screen. (Two dumps are recommended to allow for tape faults). 

5. REVIEW DATA 

Line by line review is carried out by pressing ENTER for each line: pressing any other key 
will return the MENU, 

6. CHANGE DATA 

A request for the line to be altered is given. Upon entry of this number the selection 
of whole line or individual word change is made. Selecting Word Change gives the selected 



ISSUE 24 (NOVEMBER 1981) 


MICRO-80 


PAGE 26 


line again, which is disassembled and repeated. The following keys allow corrections and 
insertions. (If any change causes the line to exceed 64 characters, the line is printed 
ending in a '+' sign, indicating lost words. These words must be added on an inserted line): 

TAB - presents each word for inspection. 

BACK SPACE - removes the previous word from screen. 

CTRL - deletes the last word displayed. 

ESC - presents a small block character and allows insertion 
of a new word. During word insertion 'Shift-@' will 
insert a space. 

SPACE BAR - fixes the new word into the line and allows further 
word inspection. 

'0* - allows escape from the line being changed, rejustification 
taking place if necessary. 

7. ADD TO DOCUMENT 

This presents the last three lines of the previously entered text and allows further line 
entry. 

8. INSERT NEW LINE 

The prompt asks for the line number to be inserted. This will be the line number after 
the desired insert. If correct placement is shown, type in new line and program returns 
to MENU. 

9. DELETE A LINE 

The selected line is displayed and is deleted by pressing ENTER. Line numbering is moved 
up one for all lines higher than the deletion, therefore when more than one deletion is 
required, the highest number should be removed first. 

The program is error-trapped to return to MENU. If the program is lost, however, GOTO 1700 
will usually allow recovery. 


100 CLS;PRINTTAB(25)CHR^(34)5"TEXT-TYPER "5 CHR$(34 )5 PRINTTAB(25)S 

TRIN6$(12,42)sPRINTTAB(37)?"WRITTEN BY M.J. LEONARD.PRINT 

110 PRINTS PRINT"SELECT INDENTATION AND LINE JUSTIFICATION"sPRINT 

sPRINT-ENTER; I TO CONTINUE "5 PRINT 

120 Z$=INKEY$3lF Z$="" THEN GOTO 120 

130 CLEAR 5000s DIM A$(90),T$(20),B$(90) 

140 ON ERROR GOTO 1470 

150 REM INDENTATION POSITION 

160 TB7.=0 

170 PRINT"ENTER INDENTATION"? TAB(25); 

180 X$=INKEY$sIF X$="" THEN GOTO 180 
190 X7.=ASC(X$) 

200 IF X7.= 13 THEN PRINTS GOTO 250 
210 Xl$=Xl$-i-X$SPRINT X*5 

220 IF VAL(X1$)<0 OR VAL(Xi$)>62 THEN PRINT CHR$(29);CHR$(30);sX 
l$=""sGOTO 170 

230 IF LEN(X1$)>2 THEN PRINT CHR$(29) 5 CHR$(30);sXl$=""sGOTO 170 
240 GOTO 180 

250 IF LEN(X1$)=0 THEN GOTO 270 
260 TB7.=VAL (X1 $) s X1 $= " " 

270 PRINTS PRINT"ENTERS J FOR JUSTIFICATION" 

280 PRINT"ENTERs N FOR NON-JUSTIFICATION" 

290 PRINT"ENTER s A TO ABORT"s PRINT s PRINT"ENTER s" 

300 M*=INKEY*sIF M*="" THEN GOTO 300 
310 G7.=ASC(M*) 

320 IF G7.=74 THEN QX7=0 ELSE IF G7.=78 THEN 8X7.= 1 ELSE IF 67.=65 T 
HEN RUN ELSE 60T0300 

330 IF F7.= l THEN GOTO 1700 ELSE IF F%=2 THEN GOTO 2330 
340 CLS 

350 N7.=0 s PR INTCHR* (128) +CHR* (13) s GOTO 520 
360 A*=INKEY*sIF A*="" THEN GOTO 360 
370 A7.=ASC(A*) 

380 IFA7.>32ANDA7.<65G0T0550 

390 IFA7. >64ANDA7.< 91 A7.=A7.+32 : G0T0500 

400 IFA7. >91 A7.=A7.-32 s U7=PEEK (16416) s Q7.=PEEK (16417) s GOTO 480 

410 IF A7.=27 THEN 1700 

420 IF A7.=32 THEN SP7.=SP7.+ ls GOTO 550 

430 IF A7.= 10 THEN A*=CHR*(128) s GOTO 550 

440 IF A7.=91 THEN GOSUB 1220s GOTO 510 

450 IF A7.=8 THEN GOSUB 1660: GOTO 360 
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460 IF A7.=9 THEN GOSUB 1550: GOTO 360 
470 IF A:/.= 13 then 510 

480 IF Q'4=60 THEN Q:/.=0 ELSE IF Q%=6i THEN Q:/.=256 ELSE IF Q7.=62 T 

HEN 07=512 ELSE IF Q7.=63 THEN Q7.=768 

490 POKE 15360+Q7.+U7.+645 183 ; U7=0 ; 07=0 

500 A$=CHR$(A7) : GOTO 550 

510 GOSUB 1240 

520 N7=N7+isL$="":GOSUB 1610 ;GOSUB 1490 

530 IFN7>90THENCLS:PRINT"END OF TEXT INPUT - 90 LINES HAVE BEEN 
ENTERED";FQRT7=1T01000:NEXTT7:G0T01700 
540 IF XX7=2 AND A7=13 THEN GOTO 2970 ELSE 

IF XX7=1 AND A7=13 THEN GOTO 2650 ELSE IF XX7=1 AND A7=91THEN 
GOTO 2650 

550 IF LEN<L$)<=61 THEN PRINT A$;CHR$(95);CHR$<24); 

560 IF LEN(L$)=62 GOTO 360 
570 L$=L^+A$ 

580 V7=0; GOTO 360 

590 REM WORD CHANGE 

600 J7=1;A7=0 

610 N7=CH7;GOSUB 1490 

620 FOR L7=l TO LEN(A$<CH7)) 

630 J ^=MID$ < A^(CH7),L7,1) 

640 IF J$< >" ■■ THEN T$ (J7) =T$ (J7)+J$; K7=0 

650 IF JS=" " THEN K7=K7+1 

660 IF K7>1 THEN GOTO 680 

670 IF K:7=1 then PRINT"J ";:J7=J7+1 

680 NEXT L7 

690 PRINTCHR^(29);CHR$ < 30); 

700 FOR L7=l TO J7 

710 IF T$(L7+1)="" THEN PRINT T$(L7); ELSE PRINTT*(L7):" 

720 NEXT L7;PRINT 
730 Q7=J7 

740 ZS=INK;;EY^; IF !%='•" THEN GOTO 740 
750 A7=ASC(Z$) 

760 IF DD7=Q7+1 AND T$ < Q7+1) = "" THEN L$=LEFT$ < L^,LEN < L$ >-1>: FOR 
17=0 TO 20:T$<I7)="";NEXT 17;SP7=DD7-2;DD7=0:PRINT CHR$(29);CHR$( 
30);:GOSUB 1240 :GOTO 2650 

770 IF A7=9 THEN DD7=DD7+1;L$="";GOTO 820 
780 IF A7=8 THEN DD7=DD7-1:L^="";GOTO 870 
790 IF A7=91 THEN A7=0;Z$="PRINT CHR$(176);:GOTO 910 
800 IF A7=10 AND DD7=0 THEN GOTO 740 ELSE IF A7=10 THEN GOTO 113 
0 

810 IF A7=64 THEN GOTO 1200 ELSE 740 
820 PRINT CHR$(29);CHR$(30);;L$="“ 

830 FOR 17=1 TO DD7 

840 IF I70DD7 THEN L$=L$+T$ (17)+" " ; GOTO 860 
850 IF I7=DD7 THEN L$=L$+T$(I7) 

860 NEXT 17:PRINT L$;;GOTO 740 

870 IF DD7<=0 THEN DD7=0;PRINT CHR$(29);CHR$(30);; 

L^= " ; GOTO 740 ELSE PR I NT CHR$ (29) ; CHR$ (30) ; : L«= " " 

880 FOR 17=1 TO DD7 
890 L*=L^+T$(I7)+" " 

900 NEXT I7;PRINT L$;;GOTO 740 

910 Z$=INKEY^;IF Z$="" THEN GOTO 910 

920 A7=ASC(Z$) 

930 IF A7=8 AND LEN(TT$)>0 THEN PRINT CHR$(8);:TT^=LEFT$(TT$,LEN 
(TT$)-1);GOTO 910 ELSE IF A7=8 AND LEN(TT$)=0 THEN GOTO 910 
940 IF A7=96 THEN A7=128;GOTO 1120 
950 IF A7<32 GOTO 910 

960 IF A7=32 THEN DD7=DD7+1:Q7=Q7+1;GOTO 980 
970 GOTO 1090 

980 FOR 17=07 TO DD7 STEP-1 
990 T$(I7)=T$(I7-1) 

1000 NEXT I7:T$(DD7)=TT*;L$="" 

1010 FOR 17=1 TO 07 

1020 IF 17007 THEN L$=L$+T* ( 17)+" " ; GOTO 1040 
1030 L$=L*+T$(I7) 

1040 NEXT I7:TT$="" 

1050 PRINT CHR$(29):CHR$(30); 

1060 FOR 17=1 TO DD7 
1070 PRINTT$(17)+" 

1080 NEXT 17;GOTO 740 
1090 IF A7<65 THEN A7=A7;GGT0 1120 
1100 IF A7<91 THEN A7=A7+32;GOTO 1120 
1110 IF A7<128 THEN A7=A7-32 

1120 Z$=CHR$(A7);PRINT Z$;:TT$=TT$+Z$;GOTO 910 
1130 FOR I7=DD7 TO Q7 
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1140 T$(I7.)=T$<I7„+1) 

1150 NEXT I % ; Q7.=Q7.-1 s DD7.=DD%-1; L$= " " 
1160 FOR 17=1 TO DD7. 

1170 L$=L$+T$ (17.)+" " 

1180 NEXT 17. 


1190 PRINTCHR$<29);CHR$(30>sGOTO 740 
1200 PRINTCHR$(29);CHR$(30);s L$="" 


1210 

1220 

1230 

1240 

1250 

143 

1260 


FOR I%—1 TO 07:L$—L$+T$<17)+" "sNEXT I7sDD7=Q7+1 s GOTO 760 
REM CENTERING TEXT 

Q7=LEN(L$);U7=<62-Q7)/2:L$=STRING$(U7,128)+L«:RETURN 
REM JUSTIFY TEXT 

J7=0;W7=0:IF LEN(L$)<55 OR LEN<L$)>=64 OR 0X7=1 THEN GOTO 
O ELSE PRINT CHR$(29)?CHR$(30)::FOR 17=1 TO LENfL$) 
A$=(MID$(L$,17,1)) 


1270 IF A$<>" "THEN T$(J7)=T$(J7)+A$ 
1280 IF A$=‘' " THEN J7=J7+1 


1290 NEXT 17;17=0s J7=0:A^="" 


1300 X=(64+SP7-LEN(L$))/SP7sX=INT(X):W7=(64+SP7)-(<XfSP7)+(LEN(L 
$) ) ) 

1310 FOR J7=0 TO SP7-1 


1320 T$(J7)=T$(J7)+STRING$(X,32):PRINT"J 
1330 NEXT J7. 

1340 L$="" 

1350 FOR J7=0 TO SP7 

1360 IF SP7>=0 AND W7>0 THEN T$(J7)=T$(J7)+CHR^(128^ 
1370 L$=L$+T^(J7) 

1380 SP7=SP7-1 
1390 W7=lsl7-1 


1400 NEXT J7SPRINT 

1410 FOR J7=0 TO 20:T$(J7)="":NEXTJ7sSP7=0 

1420 L$=LEFT$(,64)s PRINTCHR$(29);CHR$(30)? CHR^(27);? s GOTO14 


1430 PRINT CHRit(29) ;CHR^(30) s s 

IF LEN(L^&)=0 THEN PRINTCHR®(128)+CHR^(13): ELSE IF LEN(L$)^ 
64 THEN PRINT L$+CHR$(13)5 ELSE IF LEN(L$)=64 THEN L*=LEFT$(L®,64 
)SPRINT L$? ELSE IF LEN(L$)>64 THEN L$=LEFT$(L$,63)sPRINT i^sCHR^ 
(43) 5 , . 

1440 IF LEN(L$)=0 THEN A$(N7)=" " ELSE A$(N7)=L$ 

1450 L^=""s SP7=05 X=05 J7=0 s A$=""s W7=0 
1460 RETURN 

1470 PRINT"ERROR=#"sERR/2+1,"ERROR LINE=";ERL 
1480 FOR T7= 1 TO 1000:NEXTTXsRESUME 1700 
1490 REM LINE COUNTER 
1500 I$=STR$(N7) s CL7=LEN(I^) 

1510 IF CL7 =2 THEN H7=48sL7=ASC(RIGHTS(I®,1)) 

1520 IF CL7 =3 THEN H7=ASC(MID$(I^,2,1));L7=ASC(RIGHTS(1$,1)> 

1530 POKE 15413;,91sPOKE 15414,32:POKE 15415,76:POKE 15416,73sPQK 
E 15417,78:POKE 15418,69:POKE 15419,32;POKE 15420,H7sPOKE 15421 L 
7s POKE 15422,32: POKE 15423,91 ' ^ 

1540 RETURN 
1550 REM INDENTING 


1560 IF TB7=0 THEN RETURN 
1570 IF TB7>64 THEN TB7=64 

1580 TB7=TB7-1:PRINTSTRIN6$(TB7,32)p CHR$(95)p CHR$ ^ 24)• 

1590 L$=STRING^(TB7, 128)+L$ s- 

1600 TB7=TB7+1s RETURN 
1610 REM PRINT INDENT POSITION 
1620 PRINTCHR$(26)? 

1630 IF TB7=0 GOTO 1650 
1640 PRINTSTRING$(TB7-1,95);CHR^(91)? 

1650 PRINTSTRING$(62-TB7,95)p STRIN6$(2,128)p s PRINTCHR^(27)p CHR $l 

27)pCHR$(29);CHR$(30)psRETURN 

1660 REM BACK SPACING 

1670 IF LEN(L$)=0 THEN RETURN ELSE 

IF RIGHTS(L$,1)=" " THEN SP7=SP7-1 
1680 PRINTCHR^(8)pCHR$(30)?:IF LEN(L$)<63 THEN PRINT CHR$(95)p 

CHR$(24)p g L$=LEFT^(L^,LEN(L$)-1);U7=PEEK(16416):Q7=PEEK(164 
17):IF07=6OTHENQ7=OELSEIFQ7=61THENQ7=256ELSEIF07=62THENQ7=512ELSE 
IF07=63THENO7=768 

1690 POKE 15360+07+07+64,95: U7=Os 07=0:RETURN 
1700 CLS;F7=0 


1710 PRINTTAB(12)"ENTER: 
1720 PRINTTAB(12)"ENTER: 
2) STRINGS(34,45) 

1730 PRINTTAB(12)"ENTER: 
1740 PRINTTAB(12)"ENTER: 
IN6$(34,45) 


1 TO PRINT DRAFT DOCUMENT" 

2 TO PRINT COMPLETED TEXT":PRINTTAB(1 

3 TO RECORD TO TAPE" 

4 TO LOAD FROM TAPE":PRINTTAB(12) STR 
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1750 FRINTTAB<12)"ENTER; 5 TO REVIEW DATA";PRINTTAB(12) STRING 
$ < 34,45) 

1760 PRINTTAB <12)"ENTER; 6 TO CHANGE DATA"s PRINTTAB(12) STRING 
$ (34,45) 

1770 PRINTTAB(12)"ENTER: 7 TO ADD TO THE DOCUMENT";PRINTTAB(12 
) STRING$(34,45) 

17S0 PRINTTAB(12)"ENTER: 8 TO INSERT NEW LINE" 

1790 PRINTTAB(12)"ENTER: 9 TO DELETE A LINE" 

1800 PRINTTAB(12) STRINGS(34,45):PRINTTAB(12)"ENTER: CHOICE 
INPUT Y* 

1810 IF Y$=" INDENT" THEN F:/.= 1: CLS; PRINT: GOTO 150 
1820 IF LEN(Y$)>1 THEN GOTO 1700 

1830 Y'4=VAL(Y$): IF YYX1 OR YyL>9 THHEN GOTO 1700 
1840 ON Y% GOTO 1850,1960,2050,2280,2710,251O,2030,2820,3020 
1850 CLS: Z$="": PR I NT "MAKE PRINTER READY ■« 

1860 PRINT:PRINT"ELSE ENTER: ’A’ TO ABORT ";:INPUT Z% 

1870 IF THEN GOTO 1700 

1880 LPRINT" INDENTATION =":TB7.; 

1890 IF QX7,=0 THEN LPRINT" JUSTIFY" ELSE LPRINT 
" NON-JUSTIFY" 

1900 LPRINT" “ 

1910 FOR I7.= l TO N% 

1920 LPRINTC.HR$(29) ;CHR$(27) ;CHR$(56) :CHR$(27) ;CHR$(66> : 17.; TAB (2 
5.) ; A$(I7,) :LPRINT" ";IF A$ (17.) =" "THEN LPRINT " " 

1930 IF I7.=40 OR I7.=81 THEN 60SUB 2490 
1940 NEXT 17.: GOTO 1700 

1950 A$="";A7.=0:L$="":CLS:N7.=N7,+ 1:G0SUB 1610:G0SUB 1490:GOTO 360 
1960 CLS:Z$="";PRINT"MAKE PRINTER READY " 

1970 PRINT;PRINT"ELSE ENTER; "A' TO ABORT INPUT Z$ 

1980 IF Z$<>"" THEN GOTO 1700 
1990 FOR I7.= l TO N7. 

2000 IF I7,=59 THEN GOSUB 2490 

2010 LPRI NTCHR$ (27) ; CHR$ (66) ; CHR$ (27) ; CHR$ (54) ; CHR$ (30) ; A$ (17.) ; 
IF A$(I7.)="" THEN LPRINT " " 

2020 NEXT 17.; GOTO 1700 

2030 CLS;L$="": V7.=3: IF V7.>=N7. THEN V7.= l 
ELSE V7.=N7.-3 

2040 CLS: FOR I7=V7. TO N7.; PRINTA* ( 17) ; NEXT 17.: GOSUB 1610: GOSUB 14 
90; 

GOTO 360 

2050 REM RECORD DATA 
2060 CLS 

2070 FOR I7==l TO 90 

2080 IF A$(I7.)="" THEN GOTO 2090 ELSE N7.= I7= 

2090 NEXT 17.; PR I NT "THERE ARE ";N7,;" LINES": PRINT 

2100 Z$="":PRINT"MAKE TAPE RECORDER READY FOR RECORDING " 

2110 PRINT;PRINT-ELSE ENTER; ’A' TO ABORT INPUT 
2120 IF Z$<>"" THEN GOTO 1700 

2130 CLS;PRINTTAB!15);"THE TAPE RECORDER IS RUNNING":PRINT:PRINT 
"IT WILL PAUSE, HOWEVER, WHILE IT CONVERTS COMMAS AND COLONS 
TO GRAPHIC CHARACTERS" 

2140 PRINT #-l,N7. 

2150 FOR I7.= l TO N7 

2160 FOR J7,= l TO LEN(A$(I7,)) 

2170 K$=MID$ (A$ (17.) , J7., 1 > 

2180 IF K$="," THEN KK*=KK$+CHR$(168);GOTO 2210 
2190 IF K$=";" THEN KK$=KK$+CHR$<162);GOTO 2210 
2200 KK$=KK«+K$ 

2210 NEXT J7.: A$(I7.)=KK$ :KK$="" 

2220 NEXT 17. 

2230 FOR I7.= 1T0 N7. STEP 3 

2240 PRINT#-1,A$(I7.) , A$(I7.+ 1) , A$(I7.+2) 

2250 PR I NT A$ (17.) ; PR I NT A* (17.+1) : PR I NT A$ < 17.+2) 

2260 IF A$(I7)="" OR A$(I7.+ 1)="" OR A$(I7.+2)="" THEN PRINT CHR^ ( 
128) 

2270 NEXT I7.:G0T02400 
2280 REM READ DATA 

2290 CLS;Z$="":PRINT TAB(25);"LOAD FROM TAPE";PRINT;PRINT"MAKE T 
APE RECORDER READY FOR PLAYING" 

2300 PRINT;PRINT"ELSE ENTER: 'A' TO ABORT ";:INPUT Z$ 

2310 IF Z$<>"" THEN GOTO 1700 
2320 PRINT;F7.=2;GOTO 150 

2330 CLS:PRINTTAB(15)5"THE TAPE RECORDER IS RUNNING" 

2340 PRINT 

2350 INPUT #-l, N7.: PR I NT "THERE ARE ";N7.; 

2360 FOR I7.= l TO N7. STEP 3 
2370 INPUT #-l, A$(I7.) ,A$(I7.+ 1) , A$(I7.+2) 


LINES":PRINT 
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2380 PRINTA$(1%);PRINTA$(I%+1)s PRINTA$(I%+2) 

2390 NEXT 17. 

2400 CLS:PRINT"THE PROGRAM IS NOW REPLACING THE GRAPHIC CHARACTE 
RS WITH COMMAS AND COLONS." 

2410 FOR 1% =1 TO N7. 

2420 FOR J7.= l TO LEN(A$(I7.)) 

2430 K$=MID$(A$(I7.> , J7., 1) 

2440 IF K$= CHR$(168) THEN KK$=KK$+","sGOTO 2470 
2450 IF K$= CHR$<162) THEN KK$=KK$+"g"sGOTO 2470 
2460 KK$=KK$+K$ 

2470 NEXT J7.g A$ ( 17.) =KK$: KK$=" " 

2480 NEXT 17.: GOTO 1700 

2490 CLS:PRINT"PAGE FULL, INSERT ANOTHER SHEET IN PRINTER":PRINT 

:PRINTTROFFENTER 'CONT’ TO PRINT BALANCE OF TEXT":PRINT:STOP 

2500 RETURN 

2510 REM CHANGE DATA 

2520 L$= " " : FF7.=N7.+1: F$=STR$ (N7.+1) 

2530 CLS:Z$="" 

2540 PRINTCHR$(29)5CHR$(30)?"ENTER LINE TO BE CHANGED INPUT C 
H% 

2550 IF N7.=0 THEN GOTO 1700 
2560 PR I NT: PR I NT A$ (CH7.) 

2570 IF CH7<1 OR CH7.>N7; THEN GOTO 2540 
2580 PRINT:PRINT"ENTER: L FOR LINE CHANGE": 

PRINT"ENTER: W FOR WORD CHANGE": 

PRINT"ENTER: A TO ABORT":PRINT 
2590 M$=INKEY$:IF M$="" GOTO 2590 
- 2600 G7.=ASC(M$) 

2610 IF G7.=87 THEN WD7.= 1 .ELSE IF G7.=76 THEN WD7.=0 ELSE GOTO 1700 

2620 PR I NT A« (CH7.) : PR I NT: X X7.= 1 

2630 IF WD7.= 1 THEN GOTO 590 

2640 N7.=CH7.:G0SUB 1610:G0SUB 1490: GOTO 360 

2650 PRINT:PRINT"FOR ANOTHER CHANGE ’C' ELSE 'ENTER'"; 

2660 Z1$=INKEY$:IF Zl$="" THEN GOTO 2660 
2670 Z7.=ASC<Z1$) 

2680 IF Z7=13 THEN XX7=0; N7,=FFX-1: GOTO 1700 
2690 IF Z7.=67 THEN N%=FF7: GOTO 2530 
2700 IF Z%<>13 OR Z7.067 THEN GOTO 2650 
2710 REM REVIEW DATA 

2720 CLS:PRINTTAB < 20);"REVIEW DATA":PRINT 
2730 PRINT"ENTER 'A' TO ABORT ELSE 'ENTER' " 

2740 Z$=INKEY$:IF Z$="" THEN GOTO 2740 
2750 Z7.=ASC(Z«i) : IF Z7013 THEN GOTO 1700 
2760 FOR Q7.= l TO N7. 

2770 PRINTA^(Q7.> 

2780 N7.=Q7.:G0SUB 1490 

2790 Z^=INKEY$:IF Z$="" THEN GOTO 2790 
2800 Z7.=ASC(Z^> s IF Z7.013 THEN GOTO 1700 
2810 NEXT Q7.:G0T0 1700 
2820 REM INSERT LINES 

2830 CLS:Z$="":PRINT TAB(25)?"INSERT LINE":PRINT 

2840 CLS: PR I NT "ENTER STARTING NUMBER OF INSERT "p: INPUT E7. 

2850 PRINTA«(E7.-1) s PRINT" INSERT" : PRINTA* <E7) : PRINT 
2860 PRINT"INSERT LINE ELSE 'A' TO ABORT "p:INPUT Z^ 

2870 IF Z$<>"" THEN GOTO 1700 

2880 IF E7.<1 OR E7.>N7. THEN GOTO 2840 

2890 R7.=0 

2900 FOR I7.=E7. TO N7.: R7.=R7.+1 
2910 B$ (R7.) =A$ (17.) : A* (17.) =" " 

2920 NEXT 17. 

2930 L$="":XX7.=2 

2940 PR INT: PR INT"ENTER LINE TO BE ADDED PRINT:PRINT 

2950 N7.=E7. 

2960 GOSUB 1610sGOSUB 1490:GOTO 360 
2970 FOR I7.= (E7.+ 1) TO (R7.+E7.): K7.=K7.+ 1 
2980 A»<I7.)=B*<K%) sB«(K%)="" 

2990 NEXT 17. 

3000 N7.=R7.+E7. 

3010 R7=0:K7=0sXX7.=0sG0T0 1700 
3020 REM DELETE LINE 

3030 CLS:Z«i=""sY7=0sX%=0:PRINTTAB<25) 5 "DELETE LINE"sPRINT 
3040 PRINT-ENTER LINE NUMBER TO BE DELETED "ps INPUT Y7.s 
PRINT:PRINT A*(Y7)sPRINT 

3050 Z$="":PRINT"DELETE LINE ELSE 'A' TO ABORT "psINPUT Z« 

3060 IF ZitO"" THEN GOTO 1700 

3070 IF N%=0 THEN GOTO 1700 

3080 IF Y5i<l OR Y7.>N% THEN GOTO 3030 
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3090 FOR I7,= l TO N7.+ 1 

3100 IF Y7.= I7. THEN X7.= l 

3110 IF X7.= l THEN A$ (17.) =A$ < I7.+ 1) 

3120 NEXT I7.!N7.=N7.-l!60T0 1700 

3130 END 




***** THE TOWERS OF HANOI by M. Byrne ***** 

The 'Towers of Hanoi' is played with a number of discs of differing sizes and three pegs on 
which the discs may be stacked. Initially the discs are arranged on one peg in order of decreasing 
size. The object is to transfer them (in the least number of moves) to another of the pegs so 
they are once again arranged in order of decreasing size. However, you may only move one disc 
at a time and it must not be placed on a smaller disc. 

This program allows you to select the number of discs (up to a maximum of 10) and whether you 
or the computer will solve the problem. 

The main variables used are: 


N(3) holds the number of discs on each peg. 

Pl(), P2(), P3() are peg arrays. Each element holds the size of the disc at that position. 

SK() the parameter stack. 

SC the source peg. 

DN the destination peg. 

AL the alternate peg. 

NM the move counter. 

SP the stack pointer. 

B the base pointer for the stack elements of the previously invoked procedure. 

CT the number of discs. 

S the amount of delay (for automatic operation). 

F the peg the disc is moved from. 

T the peg the disc is moved to. 

Tl, T2 used to test whether the move is legal. 

M is the minimum number of moves. 

TD the top disk of the peg we are moving from. 

Probably the feature which will cause most confusion is the use of recursion. It appears to 

be a not-too-well-known fact that BASIC will allow recursion (on most machines anyway). Recursion 
is a means whereby a procedure or subroutine may call itself. This involves the use of a stack 
(which BASIC provides) for storing the return address and another stack (which must be set up 

explicitly) if parameters are to be passed to the called procedure. 

The parameter stack is only really used when automatic operation is required as manual operation 
merely involves asking for moves and checking their validity. The program is organised as follows: 


Lines 7-40 
Lines 50-110 
Lines 120-190 

Lines 200-400 
Lines 460-490 
Lines 500-700 
Lines 1000-1410 


Lines 1500-1660 
Lines 1700-1780 

Lines 2000-2070 
Lines 2500-2980 


initialisation 

obtain the number of discs and determine the mode of operation. 

contain the automatic operation logic sets up the stack pointers and initialises 

the stack. 

are the manual operation logic which asks for moves and checks their validity, 
draw the discs initially. 

are responsible for shifting the discs. The delay routine is Line 505. 
is the main recursive procedure which is only executed in automatic operation. 
It decides what the new source and destination pegs should be, places these 
parameters on the stack SK() and calls itself, 
draws the pegs. 

is the graphics routine for erasing the disc on the old peg and redrawing 

it on the new peg. 

print the start up message. 

contain the instructions. 


The current top-of-stack is indicated by SP. When used by the main procedure (Lines 1000-), 
the top stack element holds the number of the alternate peg for this move, top of stack - 1 
holds the number of the destrination peg for this move, top of stack - 2 holds the number of 
the source peg for this move while top of stack - 3 indicates the number of discs still to be 
moved. 


When used by the shift procedures (Lines 500-), the top of stack contains the number of the 
destination peg and top of stack - 1 contains the number of the source peg. 

Because the parameter stack must be explicitly set up and manipulated in BASIC, the algorithm 
tends to become somewhat obscured. Also if it is the first time you have encountered recursion, 
BASIC is not the ideal language to learn about it. For those of you who are interested in finding 
out more, the tree-diagram for the algorithm used in this program is given in the book 'An 
Introduction to Problem Solving Using Pascal' by Kenneth Bowles. 



ISSUE 24 (NOVEMBER 1981) 


MICRO-80 


PAGE 32 


40 CLEAR 93 

50 CLSsBOSUB 1430:G0SUB 1510;riAX=10 

60 DIM N(3) ,P1 (MAX) ,P2(MAX) 5P3(MAX) ^SKdOSMAX) 

7O SC= 15 AL=2: DN=3: CT=0P 1 (O) =99; P2 (O) = 99 ; p?^ < o 1 =99 

SO NM=OsJ=OsI=0:SP=0 sB=0!CLS 

90 INPUT "HOW MANY DISCS WOULD YOU LIK:E‘';CT 

100 IF CT>MAX PRINT"THAT WILL TAKE SOME TIME AND FIRST YOU WILL 
HAVE TO CHANGE LINE 50":END 

110 IF CTOO PR I NT "SORRY, THAT'S NOT POSSIBLE": GOTO 90 

120 IF CT<=3 PRINT"YOU HAVE NO SENSE OF ADVENTURE - BUT I SUPPOS 

YOU HAVE TO START SOMEWHERE" 

130 W(l)=CTsN<2)=0:N(3>=0 

140 IF AN$="YES" OR AN$="NO" THEN PRINT"TYPE 'A' IF YOU WANT ME 
TO DO ALL THE WORK (I.E. AUTOMATIC 

OPERATION) OTHERWISE TYPE 'M' FOR MANUAL OPERATION";PRINT"WHICH 
WOULD YOU LIKE "? 

150 INPUT"AUTOMATIC OR MANUAL (A OR M)";MODE$ 

160 IF MODE$<>"A" GOTO 280 

170 INPUT"HOW FAST <0 IS FASTEST, 10 IS SLOWEST)":S 
ISO CLS:G0SUB1160 
190 G0SUB540:SP=4 

200 SK(SP-3)=CT s SK <SP-2)=SCs SKK(SP-1)=DNs SK <SP)=AL 
210 B=SP;SP=SP+4 

220 SK <SP—3) =SK (B—3) : SK (SP—2) =SK <B—2) s SK (SP—1) =SK (B-l ^ : SK (SP> =SK 
(B) 

230 IF CTOl THEN GOTO 260 

240 SP=SP+2:SK(SP-1)=1;SK(SP)=3;G0SUB 590 

250 G0T0270 

260 GOSUB 820 

270 PR I NT:i>832, " " ; : G0T0510 

280 CLS:GOSUB 1160:S=0 

290 GOSUB 540 

300 PRINT;iS32," 

310 PRINT3S32,"FROM PEG":sINPUT F ’ 

320 PRINT;i)860, "TO PEG";: INPUT T 

330 IF F<1 OR T<1 OR F>3 OR T>3 PRINT"NO SUCH PEG":GOTO 300 
340 IF F=T PRINT“NOT ALLOWED";GOTO 300 

350 IF N(F)<=OPRINT"THERE ARE NO DISCS ON PEG ";FsG0T03OO 
360 I=N<F):T=N(T) 

370 ON F GOTO 380,410,430 
380 T1=P1(I) 

390 IF T=2 THEN T2=P2(J);ELSE T2=P3(J) 

400 GOTO 440 

410 T1=P2<I);IF T=1 THEN T2=P 1 (.J) s ELSE T2=p:^fJ) 

420 GOTO 440 

430 T1=P3(I);IF T=2 THEN T2=P2<J);ELSE T2=P1(J> 

440 IF T1>T2 PRINT"NOT ALLOWED";G0T0300 
450 SP=SP+2;SK < SP-1)=F;SK(SP)=T 
460 GOSUB 590 

470 IF N(1)=0 AND N(2)=0 AND N(3)=CT THEN GOTO 4SO;FLSE GOTO 3r50 
480 M=2[:CT~1 :PRINT3S32, " 

"sPRINT:i)832, " 

49o IF NM=M THENPRINT"CONGRATULATIONSf YOU DIB IT" ELSE IF 
=MSO=15 THENPRINT"NOT BAD AT ALL" 

500 PRINT"YOU TRANSFERRED ALL THE DISCS IN "sNMs" MOVES 
510 PRINT"CARE FOR ANOTHER GAME (YES OR N0>"- ' 

520 INPUT AN$ 

530 IF AN*="N“ OR AN*="NO"THEN CLSsEND ELSE GOTOSO 
54-0 .T^ny 

550 FOR 1=1 TO CT 

560 P1 (I) =J s J=.J -1 5 NEXT I 

570 RETURN 

5S0 -'============= SHIFT DISCS 

590 NM=NM+1;SE=3K(SP~1):DE=SK(SP) 

600 FOR 1=1 TO 30*S:NEXT I 
610 I=N(SE)sY=33-(I*2) 

620 IF SEOl THEN 640 

630 TD=P1(I);X=20s GOTO 670 

640 IF SE02 THEN 660 

650 TD=P2(I)s X=52s GOTO 670 

660 TD=P3(I)s X=S4 

670 P=2:SIZE=TD 

6S0 GOSUB 1340 

690 I=N(DE)+lsY=33-(I^2) 

700 IF DEOl THEN 720 
710 PI(I)=TDsX=20sB0T0 750 



ISSUE 24 (NOVEMBER 1981) 


MICRO-80 


PAGE 33 


725"' IF '2 N 74^'! 

770 F‘2 f I ' =7Ds if=72s RrSTD 770 
740 P3(I)=TD;X=84 

760 E-OSUB 1340 
770 hi < SE i =W (SE ' — 1 
780 N < DE)=N(DE > +1 
T-Of} p;p':r:SF‘—2 

300 PR INT323, " HOVE “ ; h4ii 
810 RETURhl 

320 ’============= HANOI(RECURSIVE PROCEDURE) 

830 IF SK<SP-3)>2 THEN GOTO 840 ELSE GOTO 1010 

g4f} g3;gp j gp::::gp4.4. 

850 SK ( SP-“3) =SK (B-3) -1 
gt:^ ( gp_2 ) =3k‘ f B “2 ) 

370 SK(SP-1)=SK(B) 

330 SK < SP)=SK(B-1) 

890 GOSUB 820 

prjf; p—cp-. go—gp+o 

91O SK(SP-1)=SK(B-2) 

gofj gi;;; ( gp % =:3k { g— 1 ; 

930 GOSUB 590 
940 B=SP;SP=SP+4 
950 SK(SP-3)=SK(B-3)-1 
960 SK(SP-2 > =SK < B) 

970 SK (SF'— 1) =SK ( B— 1) 

930 SK(SP)=SK(B-2) 

990 GOSUB 820 
1000 SOTO 1130 
1O10 B=SP;SP=SP+2 
1020 SK < SP-1)=SK(B-2) 

1030 SK(SP)=SK < B) 

1040 GOSUB 590 
1050 B=SP:SP=SP+2 

i 06.0; PK ( SP_1 ) =SK ( B—2 ) 

1070 SK(SP)=SK(B-1) 

1030 GOSUB 590 
1090 B=SP;SP=SP+2 
1100 SK(SP-1)=SK(B) 

1 110 SK ' SP)=SK(B—1) 

1120 GOSUB 590 
1130 SP=SP-4 
1140 RETURN 

1150 ^============= DRANPEGS 

1160 CLS;’ PROC DRAWPEGS 
1170 PRINT3256,“"|s A$=CHR*(191) 

1180 FOR 1=1 TO 7 

1190 PRINT" "p A$;" " ? A$ ? 

p A$ 

1200 NEXT I 

1210 PRINT" "5 

1220 FOR 1=1 TO 44;PRINT A^psNEXT I 

1230 F'RTNT: PRINT" 1 2 

1240 Y=315 X=20 

1250 FOR I=CT TO 1 STEP -1 

1260 FOR J=1 TO I 

1270 SET(X—J Y) 

1230 SET<X+J+2,Y) 

1290 next J 

1300 Y=Y—2 

1310 NEXT I 
1320 F(ETURN 

1330 ’============= SNITCH PROCEDURE 

1340 IF P=2 THEN 1390 
1350 FOR J=1 TO SIZE 


1360 

SET(X-.J, Y) sSET(X+J+2, Y) 


1370 

NEXT .J 


1330 

GOTO 1420 


J “TOfj 

POP Tfl ST7E 


1400 

RESE T (X - J Y) s RESET ( X+J +2, Y) 

5 

1410 

NEXT J 


1420 

RETURN 

= 

1430 

D4=STRINS*(63,"*") 


1440 

PRINT;i)256, D* 


1450 

PRINT D*SPRINT 


1 4AO 

p-p T |U"r;54.£>^ “"r p! p y fi M p‘ p* 


1 ATD 

pp T j\jy;:^cr4.y= _ ups p L_£ ^ M ru,p.pTKjy 

_ 
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1480 PRINT D$ 

1490 PRINT 
1500 RETURN 

1510 FORI=l TO 1000;NEXT I 

1520 PRINT;3896,"DO YOU NANT INSTRUCTIONS (YES OR NO)";;INPUT AN® 
1530 IF AN$<>"Y" AND AN$<>"YES" THEN RETURN 
1540 CLS 

1550 PRINT323,"INSTRUCTIONS" 

1560 PR I NTaST j "-" s PR I NT 

1570 PRINT" THERE ARE THREE PEeS= ON ONE OF THESE IS ARRANGE 

n 

1580 PRINT"IN ORDER OF DECREASING SIZE, A NUMBER OF DISCS,";PRIN 
T 

1590 PRINT" THE OBJECT IS TO HOVE ALL THE DISCS FRCH THE LEFT 
HOST” 

1600 PRINT"PEG (1) TO THE RIGHTMOST PEG (3), SUBJECT TO THE POLL 
ONING" 

1610 PRINT"CONSTRAINTS PRINT 

1620 PRINT" 1= ONLY ONE DISC HAY BE MOVED AT A TIME" 

1630 PRINT" 2, A DISC HAY NOT BE PLACED ON TOP OF A DISC NHIC 

H" 

1640 PRINT"IS SMALLER" 

1650 GOSUB 2000 

1660 PRINT323,"PLAYING HANOI" 

1670 PR I NT:3S7 , "-" s PR I NT 

1680 PRINT" THERE ARE TNO MODES OF PLAY. THESE ARE <A>UTQMAT 
IC" 

1690 PRINT"AND <M>ANUAL AND YOU WILL BE ASKED TO SELECT ONE.";PR 

I NT 

1700 PRINT"AUTOMATIC OPERATION" 

1710 PRINT" THE COMPUTER WILL ASK YOU HOW MANY DISCS YOU WOUL 
D LIKE" 

1720 PRINT"MOVED AND HOW FAST YOU WOULD LIKE THEM MOVED. IT NIL 
L” 

1730 PRINT"THEN PROCEED TO TRANSFER THE DISCS FROM PEG 1 TO PEG 

1740 PRINT"USING PEG 2 AS AN INTERMEDIATE." 

1750 GOSUB 2000 

1760 PR I NT:323j "PLAYING HANOI" 

1770 PR INT387, "-" g PR I NT 

1780 PRINT"MANUAL OPERATION" 

1790 PRINT" HERE YOU WILL BE ASKED HOW MANY DISCS YOU WOULD L 
IKE" 

1800 PRINT"TO MOVE. THEN YOU WILL BE PROMPTED TO TYPE THE NUMBE 
R OF" 

1810 PRINT"THE PEG THE DISC IS TO BE TAKEN OFF AND THE NUMBER OF 
THE" 

1820 PRINT"PEG THE DISC IS TO BE PLACED ON. WHEN YOU HAVE SUCCE 
SSFULLY" 

1830 PR I NT "TRANSFERRED ALL DISCS YOU WILL BE TOLD HOW MANY MOVES 

1840 PRINT"IT TOOK." 

1850 G0SUB2000 

1860 PRINT8235. "SUGGESTION" 

1870 PR I NT;i)87, "-" g PR I NT 

1380 PRINT" IF YOU ARE UNSURE OF THE GAME TRY AUTOMATIC OPERA 
TION" 

1890 PRINT"WITH ABOUT FOUR DISCS AND LOW SPEED (E.G. 10). THEN 
SIT" 

1900 PRINT"BACK AND LET THE COMPUTER DO ALL THE WORK ~ AFTER ALL 
THAT" 

1910 PRINT"IS WHAT IT IS THERE FOR.":PRINT 

1920 PRINT" FOR A GIVEN NUMBER OF DISCS, N, THE SMALLEST NUMB 
ER OF" 

1930 PRINT"MOVES REQUIRED IS GIVEN BY 
1940 PRINT" M = 2CN-1 

1950 PRINT"SO FOR 3 DISCS THAT'S 7 MOVES, 4 DISCS 15 MOVES UP TO 

II 

1960 PRINT"THE MAXIMUM OF 10 DISCS WHICH REQUUIRES 1023 MOVES."; 
PRINT 

1970 PRINT" HAVE FUN?" 

1980 GOSUB 2000 
1990 RETURN 

2000 PRINT3960,“PRESS <NEWLINE> WHEN READY"; 

2010 INPUT D«;CLS 
2020 RETURN 
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***** NEXT MONTH'S ISSUE ***** 

Next month's issue will contain at least the following programs plus the usual features and 
articles. There will also be an index for the past 12 issues. 


** TRIANGLE SOLUTIONS LI/4K ** 

This Level I program has been designed 
to calculate unknown sides, angles and 
the area of any triangle, useful for anyone 
who needs to calculate areas for concrete 
pours for example. 


** STEEPLECHASE LII/16K ** 

We have had horse races before but never 
one like this - make your horse jump at 
the right time or off you come. Realistic 
graphics include the course, jumps, you 
(the jockey), a very well-animated horse 
and even an ambulance to take you to hospital. 


** BASIC AND LABELS 32K/DISK ** 

When you are writing a complicated program 
wouldn't it make life easier if you could 
type - GOSUB FRED and further on in the 
program is a subroutine called FRED or, 
for that matter, any name that suits you. 
Well, after next month, that's just what 
you will be able to do. 


** CURVILINEAR REGRESSION AND POLYNOMINAL 
REGRESSION LII/4K ** 

These are the last two programs in the 
current series of scientific programs. 
Curvilinear regression is used to compute 
the curvilinear relationship between two 
sets of data and Polynominal regression 
uses a mathematical model series which 
becomes increasingly complex with the addition 
of further degrees of Polynomiality. 

** 3-D MAZE LII/16K ** 

This excellent program displays a maze 
on your screen as viewed from inside. 
You can turn or move by pressing a single 
key. As you move, so the view is changed. 
Each time you move it costs you points. 
The object is to get out of the maze with 
as many points as possible. You can even 
call up a map of the maze that shows your 
current position in relation to the exit, 
but it costs you a LOT of points to do 
that. Each time you run the program you 
get a different maze. 
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***** CASSETTE EDITION INDEX ***** 

The cassette edition of MICRO-80 contains all the software listed each month, on cassette. 
All cassette subscribers need do is CLOAD and RUN the programs. Level II programs are recorded 
on side 1 of the cassette. Level I programs are recorded on side 2. Level I programs are not 
compatible with the System 80. All programs are recorded twice in succession. Note, System 
80 computers have had different tape-counters fitted at different times. The approximate start 
positions shown are correct for the very early System 80 without the volume control or level 
meter. They are probably incorrect for later machines. The rates for a cassette subscription 
are printed on the inside front cover of each issue of the magazine. 

The disk edition contains all those programs which can be executed from disk, including Level 
}^ programs are saved in the NEWDOS format. Users require the Level 

I/CMD utility supplied with NEWDOS + or NEWDOS 80 version 1.0 to run them ^ 



TYPE 

I.D. 

SIDE ONE 



MULTIPLE REGRESSION 

LII/4K 

M 

It 

II 

•1 

ATOMIC TABLES 

LII/16K 

A 

II 

II 

II 

TEXT TYPER 

LII/16K 

T 

11 

II 

II 

TOWERS OF HANOI 

LII/16K 

B 

SIDE TWO 

TOWERS OF HANOI 

LII/16K 

B 

ATTACK 

LII/16K 

C 

II 

II 

II 

BASIC LINE VALIDATOR 

EDTASM 

VALID 

H 

II 

11 

II 

SYSTEM 

II 

II 

II 

II 

TIC TAC TOE 

LI/16K 



DISK FILESPEC 

APPROX. 

CTR-41 

START POSITION 
CTR-80 SYSTEM-80 

MULTREG/BAS 

15 

10 

10 

II 

50 

34 

36 

ATOMIC/BAS 

85 

57 

60 

II 

128 

86 

90 

TEXTYPER/BAS 

170 

114 

120 

II 

237 

160 

168 

TOWERS/BAS 

300 

202 

212 


TOWERS/BAS 

15 

10 

10 

ATTACK/BAS 

70 

47 

50 

II 

108 

73 

77 

VALID/EDT 

145 

98 

103 

II 

162 

109 

115 

VALID/CMD * 

177 

119 

125 

II 

180 

122 

128 

TICKTACTO/LVl 

185 

125 


II 

248 

167 



















FOR THE FIRST TIME IN AUSTRALIA! 
GENUINE TANDY TRS-80 MICRO-COMPUTERS 
HARDWARE AND SOFTWARE AT 


to CONQUEST ELECTRONICS Ry. Ltd. 
212 Katoomba St. KATOOMBA 2780 


Please supply — 
QTY. CAT NO DESC. 


ADV. PRICE 


CAT. No AND A CHEQUE OR MONEY ORDER 


WE WILL - 

1. ATTEND TO YOUR ORDER WITHIN 7 DAYS ‘ 

2. SUPPLY GOODS SELECTED FREIGHT FREE ! 

3. SEND ADVERTISING REGULARLY TO KEEP 
YOU INFORMED OF CURRENT SPECIALS ! 

* subject to availability 



DEALER 


amoacfT 



HS 


PTY. LTD. 


212 KATOOMBA ST KATOOMBA N.S.W. 2780 PHONE (047) 82 2491 













LET THE 



BRING MAINFRAME POWER INTO YOUR HOME OR OFFICE 





WE ARE PROUD TO 

ANNOUNCE THE LAUNCHING 

OF AUSTRALIA’S FIRST 

MICROCOMPUTER 
INFORMATION UTILITY 


The AUSTRALIAN SOURCE is 
Austraha*s first microcomputer 
information utHity, aimed at giving 
the average microcomputer user 
access to the computer data banks 
and also massive storage space 
previously only avaiiabie to large 
Mainframe installations. The era of 
home computers has now officially 
begun in Australia, now that the 
AUSTRALIAN SOURCE is here; 
as now, any small businessman or 
student can have on his desk for 
an extremely small cost, a system 
that has the level of storage power 

and access to data banks for which 
only a few years ago, government 
def^rtments and large private Lasers 
wore paying millions of dollars. 

The AUSTRALIAN SOURCE 
can be accessed through a number 
of * approved' personal computers, 
and terminals, by use of an 
accoustic coupler or modem. 


Users will receive a nurr}ber of 
benefits which will include: 

INFORMATION SERVICES 

Members will have access to a 
number of information sources which 
will include the latest news, sports 
results, financial reports, and farm 
information. 

NATIONWIDE ELECTRONIC MAIL 

Members will be able, also, to 
communicate nationwide with other 
AUSTRALIAN SOURCE members 
through our electronic mail system. 


THE AUSTRALIAN SOURCE 
RECOMMENDS 3M DISKETTES 


SOFTWARE BANK 

Users will have access to a myriad 
of computer programs that will include 
entertainment, educational aids, 
programming and diagnostic tools, 
and financial applications. 

MAINFRAME POWER 

Users will have the capebility to 
make use of the Mainframe’s huge 
storage capacity by using any oi our 
large programs, or storing your large 
programs on our system. 

SHOP AT HOME 


SPECIAL 

CHARTER MEMBER OFFER 

a special promotion, the joining 
fee before the 1st February, 1982, is 
only $60 and this also entitles you to 
20% off all list user charges in the 
future — a great deaf for the money. 

TO JOiN THE AUSTRALIAN SOURCE 
FAMILY. AND TAKE AbVANTAGE OF 
THE EXCITING SERVICES WE WILL BE 
OFFERING, PLEASE COMPLETE THE 
COUPON BELOW: 


You can take ad van f age of our 
‘shopping by computer' system to 
get the best prices on a number of 
popular consumer items. 

EXTREMELY EASY TO USE 

You do not have to be a computer 
programmer to make use of the 
AUSTRALIAN SOURCE. All of the 
instructions are in everyday English, 
so that even the younger members of 
your family will oe able to operate 
the system. 


LOW COST 


While services like f^ese used to 
cost tens of thousands of dollars 
to the government departments and 
large corporations who used them, 
they are now avaiiabie to you for 
less than the cost of a packet of 
cigarettes a day for the ‘average’ 
user. 


You can join the AUSTRALIAN 
SOURCE by paying a one-time 
joining fee (normally $100) and a 
small hourly user charge (normally 
$10 an hour 8 a.m. —6 p.m. and 
$4.50 an hour 6 p.m, — 9 a.mj. 


MEMBERSHIP REQUEST 


Yes, t think the idee of the AUSTRAUAH 
SOURCE is greail f enclose so plMse 
send me my user manual and password. 



/ have a computer^ 


Brand, 


Model .... 

I ] Pteasa send me inlormation on low cosf 

I can use to take advantage 
of the AUSTR ALtAH SOURCE "S services. 


HAME: 


^ H 


ADDRESS: 


CITY 


■ ii 


STATE:. POSTCODE.. 


PHONE 



Mail to 
MICRO 80 
P.O. Box 213 
Goodwood 
South Australia 5034 

I am interested, hut i need mote iafetmatlon. 


DEALER INQUIRIES INVITED 










































